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ABSTRACT 


THE RPO7 PERFORMANCE EXERCISER PROGRAM IS DESIGNED TO PERFORM 
AN INTERACTIVE TEST ON RP DISK DRIVES CONNECTED TO A MASSBUS 
SUBSYSTEM. THE ORIVES MAY BE CONTROLLED BY AN RH70 CONTROLLER. 
IN ADDITION TO PERFORMING AN INTERACTIVE TEST OF THE DISK ORIVES 
ON THE SUBSYSTEM, THE PROGRAM IS INTENDED TO BE USED TO VERIFY 
THAT THE DRIVES UNDER TEST ARE PERFORMING TO THEIR DATA ERROR 
RATE AND SEEK ERROR RATE (SEE ERROR RATE SPECIFICATIONS). 


THE PERFORMANCE EXERCISER PROGRAM WILL EXERCISE DRIVES CONNECTED 
AS EITHER SINGLE OR DUAL PORT UNITS. DUAL PORT DRIVES ARE TESTED 
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 
font patonn WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE 


TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE MULTI-ORIVE 
CONFIGURATIONS ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK/SEARCH 
OPERATIONS WHILE ONE ORIVE IS PERFORMING A DATA TRANSFER). OPERATIONS 
AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA TRANSFER 
RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. 


THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF A 

ORIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
THAT DRIVE IS AUTOMATICALLY DEASSIGNED. (THE OPERATOR MAY OVERRIDE 
THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM REPORTS PERFORMANCE 
STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 


ALL DATA TRANSFER COMMANDS EXCEPT WRITE HEADER € DATA AND WRITE CHECK 
HEADER € DATA ARE USED. RECALIBRATE AND READ-IN PRESET COMMANDS ARE 
USED AT STARTUP AND DRIVE INITIALIZATION. RECALIBRATE, OFFSET, AND 
RETURN-TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. 


THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY 
A PREVIOUS WRITE OPERATION. THUS, WHEN A WRITE COMMAND IS SELECTED, 
oo DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 


DEPENDING UPON WHETHER THE PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC 
MODE OR APT DUMP “_~ WILL he | WHETHER; PROGRAM/OPERATOR 
COMMUNICATIONS ARE THROUGH THE KEYBOARD, DYNAMIC PROGRAM OPTIONS 
ARE SELECTED VIA SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED 
ON THE CONSOLE TERMINAL. 


GENERAL DOCUMENT NOTES 


A. IN REFERENCE TO ALL NUMBERS IN THIS DOCUMENTION. TO INDICKTE THE 
BASE OF A NUMBER LARGER THAN SEVEN. A PERIODC.) WILL FOLLOW THE 
NUMBER TO INDICATE DECIMAL OR NO PERIOD WILL FOLLOW THE NUMBER 
TO INDICATE OCTAL. IF THE NUMBER OCCURS AT THE END OF A SENTENCE, 
A DOUBLE PERIOD(. .) INDICATES DECIMAL AND A SINGLE PERIODC .) 
a2 ea OCTAL. ALSO, ANY REFERENCES TO TIME ARE ALWAYS IN 
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2.3 


3.1 


3.2 


3.3 


REQUIREMENTS 


EQUIPMENT 


POP-11 PROCESSOR 

20K MEMORY 

KW11-L OR KW11-P CLOCK 
PROGRAM LOADING DEVICE 
TERMINAL 

RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (RPO7'S) 


MEDIA 

THE PERFORMANCE EXERCISE? PROGRAM REQUIRES FORMATTED DISK 
PACKS GENERATED BY THE RPO7 FORMATTER PROGRAM CISSFMT). 

THE PACKS MUST BE FORMATTED IN 32. SECTOR (16 BIT) MODE; THE 
ALTERNATE (30. SECTOR - 18 BIT ) MODE IS NOT SUPPORTTED. 
PRELIMINARY PROGRAMS 

RPO7 FRONT-END TEST 


RPO7 FUNCTIONAL TEST 


OPERATING PROCEDURE 


LOADING THE PROGRAM 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


-PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 
-XXDP MEDIA, USING ANY XXDP DEVICE 


STARTING ADDRESSES 

200 - START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) 
WHEN THE PROGRAM IS STARTED, A DATA PATTERN WILL BE WRITTEN TO 
ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMPLETION OF 
THE WRITE, THE PROGRAM GOES INTO A TESTING MODE. 

204 - RESTART ADDRESS, THE RESTART ADDRESS PROVIDES THE OPERATOR WITH 
4 ABILITY TO CHANGE THE DEFAULT RP/RH ADDRESSES (SEE yp tte 


4.1.2), ANY PROGRAM PARAMETERS (SEE SECTION 4.1) OR 
DRIVE LIMIT PARAMETERS (SEE SECTION 4.2). 


PROGRAM CONTROL 


SEQ 0005S 
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PROVIDED THE PROGRAM HAS BEEN LOADED AND STARTED VIA THE APT DUMP 
MODE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE PROCESSOR/DRIVE 
OPERATIONS ARE INITIATED AND CONTROLLED BY KEYBOARD COMMANDS AND 
SWITCH REGISTER SWITCH SETTINGS. 


HOWEVER, IF THE PROGRAM IS LOADED VIA APT SCRIPT MODE ALL SETUP 


AND SWITCH REGISTER SETTINGS WILL BE PROVIDED THROUGH THE APT E TABLE. 


TYPEOUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 
a: an ae WHETHER OR NOT THE APPROPRIATE BIT IN THE E TABLE 


SWITCH OPTIONS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 

AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE ‘SOFTWARE’ SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOFTWARE’ 
SWITCHES ARE CONTROLLED —— A KEYBC9SRD ROUTINE WHICH IS CALLED 
BY TYPING A ‘CONTROL G‘. THE PROGRAM WILL RECOGNIZE THE ‘CONTROL G‘ 
AT ANY TIME EXCEPT WHEN THe PROGRAM IS IN KEYBOARD ENTRY MODE, OR 

IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE ‘SOFTWARE’ 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 


‘SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. T’ 
aareee meant U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 


ON PROCESSORS WITH HARDWARE SWITCH Hy ei THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE : SOF TWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SW<15>=1 HALT ON ERROR 

SW<14> NOT USED 

SW<13>=1 INHIBIT ERROR TYPEOUT 

SW<12> NOT USED 

SW<11> NOT USED 

SW<10>=21 BELL ON ERROR 

SW<09>=1 CHANGE END OF PASS TO 1/4 OF NORMAL 

SW<09> NOT USED 

SW<08>=1 INHIBIT END OF PASS MESSAGES 

SW<O7>21 DISPLAY ALL DATA COMPARE ERRORS 

SW<06>=1 DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

SW<05>=1 PARTIAL REGISTER DISPLAY IF ERROR; DO NOT OISPLAY 
ECC CORRECTION RESULTS 

SW<04>=1 INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN 
ORIVES WHEN END OF TEST IS REACHED 

SW<03>=1 DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 
IF ‘OCK', ‘OTE’, OR ‘WCF’ ERRORS OR AFTER THE 28TH 
RETRY IF UNCORRECTABLE ‘DOCK’ ERROR 
y ——- ERRORS € SW<07> SET, DISPLAY REST 

SW<02>=1 INHIBIT SUBSYSTEM STATUS TYPEQUT DURING STARTUP 


Il 
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3.5 


3.5.1 


3.5.2 


INHIBIT PERFORMANCE REPORT AFTER SPECIFIED TIME 

PROMPT ‘WRITE ANYWHERE’ QUESTION DURING AUTO TEST MODE 
SW<O1>*1 INHIBIT DATA COMPARE AFTER READ COMMAND, W/O ERROR 
SW<O00>=1 READ ONLY MODE 


PASS/TEST TERMINATION 


A PASS IN RANDOM ‘T' COMMAND MODE OR SEQUENTIAL ‘T’ COMMAND MODE IS 
DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS 
OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER THE SOFT ERROR 
RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 


THE SOFT ERROR SPECIFICATION FOR THE RP DRIVE IS NO MORE THAN 1 SOFT 
ERROR (NON-DISK RELATED) IN 1 X 10t10 BITS READ. (SEE SECTION 3.5.1 
FOR THE 908 CONFIDENCE LEVEL ) 


THE SEEK ERROR SPECIFICATION FOR THE RP DRIVE IS NO MORE THAN 1 SEEK 
> eg 1 X 10t6 SEEKS. (SEE SECTION 3.5.1 FOR THE 908 CONFIDENCE 


A PASS IN ‘W' OR ‘R' COMMAND MODE IS DETERMINED ®8Y THE MAXIMUM 
DISK ADDRESS LIMITS SETUP BY THE OPERATOR. 


PASS TERMINATION 


END OF PASS FOR A SINGLE DRIVE IN THE RANDOM ‘T’ COMMAND MODE OR 
ae ak ot ‘T' COMMAND MODE, IS DETERMINED BY ONE OF THE FOLLOWING 


A. IF PARAMETER ae tr eke TS 1, END OF PASS OCCURS WHEN THE DRIVE 
HAS READ 4.128 X 109 BITS (2.58 x 108 WORDS). IF SWO9= 1, 
THE END OF PASS OCCURS WHEN THE DRIVE HAS READ 1.032 x 10°9 
BITS €.645 X 10t8 WORDS). 


B. IF PARAMETER ‘ENDING’ IS 0, END OF PASS OCCURS WHEN THE DRIVE 
HAS PERFORMED 1 X 106 SEEKS. 


END OF PASS FOR A_ SINGLE DRIVE IN ‘WwW’ OR ‘R‘ COMMAND MODE, IS 
DETERMINED AS FOLLOWS. 


A. WHEN A SEQUENTIAL SEEK IS MADE BEYOND THE MAXIMUM DISK ADDRESS 
LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED ENDED. 


TEST TERMINATION 
IF SWO4 IS CLEAR(O), THE TEST FOR A DRIVE IS TERMINATED WHEN: 


A. THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 
PARAMETER ‘PASSES’. 

B. THE TOTAL ERRORS ACCUMULATED EXCEED 25. . 

C. A FATAL ERROR OCCURS: EM12 OR EM14. 

0. OPERATOR DEASSIGNS THE DRIVE 

E. THE NUMBER OF PASSES SPECIFIED BY THE MONITOR HAVE BEEN 
REACHED, WHEN RUNNING IN ‘XXDP' CHAIN MODE, ‘ACT11' CHAIN 
MODE OR ‘APT’ SCRIPT MODECANY AUTO MODE). 





SEQ 0007 


J1 


CZRJOBO RPO7 PERF EXER MACRO V04.00 1-DEC-83 10:32:28 PAGE 3-4 


USER DOCUMENTATION 


3.6 


3.6.1 


3.6.2 


3.7 


3.8 


3.9 


RUN TIME 


THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. (SEE SECTION 3.5.1) 
THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION 
MODE SELECTED, THE READ/WRITE RATIO PARAMETER (‘RATIO’), AND BY 
SWR SWITCHES 0, 1, AND 2. 


DATA TRANSFER MODE (DEFAULT) 


ONE DRIVE - APPROX. 45 MIN. (TO REACH 4.128 XK 10t9 BITS (2.56 K 10°8 WORDS) 


SEEK VERIFICATION MODE 

PARAMETER ‘MAX WRD CNT’ = 256. (1 SECTOR) 
PARAMETER ‘MAX TRK' = ‘MIN TRK’' (SAME VALUES) 
PARAMETER ‘MAX SEC’ = ‘MIN SEC’ (SAME VALUES) 
SW<01> =1 (NO DATA COMPARE) 

SW<00> =1 (READ ONLY MODE) 


ONE DRIVE - APPROX. 4.0 HRS (TO REACH 1 X 106 SEEKS) 


DUAL PORT OPERATION 
A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 
B. SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO ‘A/B’ ON EACH DRIVE 


WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 


C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 


XXDP, ACT11, APT11 COMPATIBILITY 


THIS PROGRAM IS COMPATIBLE WITH ACT11 AND APT11 IN BOTH DUMP AND 
AUTOMATIC MODES. 


THIS PROGRAM IS ALSO, COMPATIBLE WITH XXDP IN DUMP AND CHAIN MODES, 
AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE THE RPO7 IS THE 
XXDP LOADING DEVICE. 

AUTOMATIC MODE OR CHAIN MODE (MONITOR) 


1. THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 
176700 AND 254 RESPECTIVELY. 


DUMP MODE (NO MONITOR) 
1. INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS 
APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
TABLE CETABLE) ENTRIES,VIA RUNNING THE APT UTILITY PROGRAM “TSP”; 
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SOFTWARE ENVIRONMENT: 


= 1 IF APT SCRIPT MODE 
= © IF STANDLONE MODE 


ENVIRONMENT MODE: 


BIT 7 = 1 ETABLE DOES SIZING 
= © PROGRAM DOES SIZING 

BIT 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
= © DON’T SPOOL TO APT 

BIT 5 = 1 SUPPRESS TTY CONSOLE OUTPUT 
= 0 ALLOW TTY CONSOLE OUTPUT 


BIT 4 TO BIT O ARE NOT USED 

SWITCH 1 (SOFTWARE SWITCH REGISTER) 

IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET TO 1, 
THE SOFTWARE ah REGISTER WILL BE USED, INSTEAD 
OF THE HARDWARE TTY CONSOLE SWITCH REGISTER. 


SWITCH 2 CUSER SWITCH REGISTER) 
NOT USED 
CPU OPTIONS 
NOT USED 
MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 
INTERRUPT VECTOR 1 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAUT = 254 
BUS PRIORITY 1: 
NOT USED. 


INTERRUPT VECTOR 2: 
NOT USED 


- BUS PRIORITY 2: 
NOT USED 


BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 


. DEVICE MAP; 
NOT USED 


CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


- CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


© 


DeuvHo O@re Vawe : 
a 
en 


63 042270 


040640 
000010 
000012 
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sCOMMAND INITIATOR 


1s: 


2s: 


000156 CI2: 


1%: 
CI3: 


aoe 


37322225 


R3oe 
~ Lal 
Ww 
~ 


gessosessess = 


g3 & 


0PB ,R2 
@ORVNUM,R1 
PC,C1I??2? 


era 
@B1T15, -CSP) 
RO, WRT .RP 


PC 


RPADR , R4 
R1,RPCS2CR4) 
12(R2),-C SP) 


sADDRESS OF DRIVE PARAMETER BLOCK 
NUMBER 

sC1???? = Cli, CIS, OR CI4 

WHERE 


* DATA TRANSFER 
SEARCH REQUESTED BY DATA XFER 
NO DATA TRANSFER 


sREMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
:PUT REQ. IN TRANSFER WAIT QUEUE 

3;0P8 ADDRESS TO R3 

;RPCS1 ADDRESS 

;SELECT ORIVE 

3IS IT A DIAGNOSTIC COMMAND ? 

sBRANCH IF NOT 

sGET THE ROUTINE NUMBER, PARAMETERS 

:SET THE DIAGNOSTIC MODE BIT 

;WRITE THE RPMR1 REG 


sLOAD THE COMMAND AND EXIT 
sDESIRED WORD COUNT 
ADDRESS 
sLOAD WORD COUNT 
ACK 
sCALL THE LOADC WRITE) ROUTINE 
s INDEX OF REGISTER TO LOAD 
ADDRESS 


sERROR RETURN 
sLOAD CYLINDER ADDRESS 


;SEE IF BIT1S SHOULD BE SET IN RPMR1 
sLOAD “COMMAND+GO”, “A17EA16", AND “PSEL” 


sSET “DATA TRANSFER UNDERWAY” 


sDATA XFER TO FE CYLINDERS ? 
IF NO 


;SET THE DIAGNOSTIC MODE BIT 
sWRITE THE RPMR1 REG 


sRPCS1 ADDRESS 
sSELECT DRIVE 
sDESIRED CYLINDER ADDRESS 


SEQ 0206 
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EASILY. te ha yt dk QS INSTEAD OF LOOKING THRU 
THE TYPICAL LONG ERROR REPORT. THE ONE UISADVANTAGE OF THE 152. 
— REPORT, IS THE AMOUNT OF ERROR DATA WHICH CAN BE REPORTED 


THE FOLLOWING QUESTION AND WARNING MESSAGE ONLY APPEAR IN THE 
FIELD VERSION OF THIS OIAGNOSTIC. 


‘DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ?° 


A ‘Nw A te A ye Be” 

SKIP THE FOLLOWING QUESTION. A ‘Y’ R WILL PROCEED TO NEXT 
ING MES ION. IF me P PROGRAA IS IN 

MODE (SWO-1), THE WARNING MESSAGE WILL GE OMITTED GUT THE 

QUESTION WILL BE ASKED. 


*t CUSTOMER DATA WILL BE OVERWRITTEN ! 


CONTINUE (L) ?° 


A ‘¥*' ANSWER WILL PROCEED WITH TESTING THE ENTIRE DISK. A ‘N’ 
ANSWER WILL PROCEED WITH TESTING ONLY THE FE CYLINDER. 


IF ONLY THE FE CYLINDER IS TO BE TESTED, THE FOLLOWING MESSAGE 
WILL BE PRINTED. 


‘@ TESTING FE CYLINDER ONLY e° 
AT THIS POINT, IF THE PROGRAM IS L LOCKED IN “READ ONLY” MODE 
FOLLOWING NESSAGE WILL BE TYPED. IF THE PROGRAM IS NOT CGexe IN 
“READ ONLY” MODE, THE FOLLOWING MESSAGE WILL BE OMITTED. 

‘@ PROGRAM IS LOCKED IN ‘READ ONLY’ MODE «’ 

WHEN THE PROGRAM IS STARTED, THE OPERATOR WILL BE ASKED TO ENTER 
PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 

‘CHANGE PARAMETERS (L) N ?° 
IF THE ENTRY IS A ‘N’ FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN | COEFAULT THE PROGRAM WILL NOT ALLOW ANY PARAMETERS TO CHANGED 
IF THE ENTRY IS A ‘Y* FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL 
BE ALLOWED TO CHANGE THE PROGRAM PARAMETERS. 


HE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME GIVEN BEL 


PROGRAM WILL TYPE ‘INVALID ENTRY’ IF THE ENTRY IS NOT CORRECT AND WAIT 
FOR A CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) 


IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON 


THE 
SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALL SUBSEQUENT STARTS, 
THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<02> =1. 
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THE FOLLOWING IS AN EXAMPLE ORIVE STATUS PRINTOUT: 


DRIVE STATUS: 
t9) INE 


NON - INTERLEAVED 


NOU Swlor 
2397 
2 
mm 
< 


THE ABOVE DRIVE STATUS SHOWS THAT DRIVE 
1 - 7 WILL NOT BE TESTED. 


4.1.1 KEYBOARD ENTRY PARAMETERS 
DEFAULT VALUE 
QUESTION ¢ BASE VALUE RANGE 
1 10. 12800. 6 - 12800. 
(SEE NOTE) 
2 10. ie) 0 - 32767. 
3 10. 15. 0 - 32767. 
a 10. 1 1 - 32767. 


O WILL BE TESTED, WHILE ORIVES 


CONTROLS THE MAXIMUM WORD 
COUNT USED FOR DATA TRANSFERS 


NOTE: THE PROGRAM WILL SELECT 


OTHER MAX. WORD COUNT AS LONG 
AS THE VALUE SPECIFIED IS AT 
LEAST 6 WORDS BUT NO LARGER 
THAN 12800. WORDS OR MEMORY 
AVAILABLE. CWHICH EVER VALUE 
IS SMALLER) 


DETERMINES THE INTERVAL CIN 
MINUTES) BETWEEN AUTOMATIC 
PERFORMANCE REPORT TYPEOUTS; 
NO TYPEOUT IF THIS PARAMETER 
IS 0 OR IF SW<O02> =1 


DETERMINES THE INTERVAL CIN 
MINUTES) BETWEEN DATA COMPARES 
TO MEMORY AFTER A READ DATA 
COMMAND . x 
ALWAYS DO COMPARE IF THIS 
PARAMETER IS 0. IF SWO1 =1, 
THEN NO DATA COMPARES WILL 

BE GRANTED,UNLESS A ‘DOCK’ 
ERROR OCCURS. 


NUMBER OF PASSES TO END OF 
TEST. CTHIS PARAMETER IS NOT 
USED WHEN THE PROGRAM IS 


SEQ OO12 
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OPERATING IN AUTO RUN MODE ) 


>. It PARAMETER=0,DATA PATTERN 
IS RANDOMLY SELECTED. 

IF PARAMETER>0O,SPECIFIES 
ONE OF THE 15. PATTERNS. 

THE SELECTED DATA PATTERN 

IS POINTED BY THE PARAMETER 
“PATTERN”. (SEE SECTION 8.4) 


6 8 000000 O OR: IF PARAMETER = 0, THE WORD 
COUNT IS RANDOMLY SELECTED 
BETWEEN 6 AND THE VALUE 
*WROCNT’ (MAX WROD CNT). 
IF PARAMETER = 1, THE WORD 
COUNT WILL BE THE VALUE 
*WRDCNT’ (MAX WROD CNT). 


Ww 


10. 0 


oe 
es 
a 


7 8 000002 0-7? CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 
COMMANDS. 
VALUE R/wW RATIO 
te) 15/1 
1 7/1 
2 6/2 
3 5/3 
a 4/4 
5 3/5 
6 2/6 
7 1/7 
8 8 000001 Oo OR 1 IF PARAMETER = 1, END OF PASS 


DETERMINED BY THE ‘WORDS READ’ 


COUNT. 

IF PARAMETER = 0, END OF PASS 
IS DETERMINED BY THE NUMBER 
OF SEEKS. 


9 8 000001 Oo OR 1 IF EQ 1, 00 AN APPROPRIATE 
WRITE CHECK AFTER EACH WRITE 
COMMAND. IF EQ 0, SELECT WRITE 
RANDOMLY . 


10 8 000000 Oo OR 1 IF PARAMETER=0,RANDOM 
DATA BLOCK ADDRESS IS 
USED IN ‘T’ COMMAND 
IF PARAMETER=1, SEQUENTIAL 
DATA BLOCK IS USED IN 
‘T’ COMMAND 


4.1.2 CHANGE DEVICE ADDRESS 
THE RP/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS 


STARTED AT ADDRESS 204 OR IF THE PROGRAM DOES NOT RECEIVE A 
RESPONSE WHEN IT ACCESSES THE DEFAULT RP/RH ADDRESS. 


— 
- 
= 
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(DEFAULT ADDRESS « 176700, VECTOR « 254) 
ADDRESS SELECTION EXAMPLES 


EXAMPLE 1 
RPCS1*176700 <CR> sNO CHANGE IN ADDRESS 
RPVEC 000254 «CR» sNO CHANGE IN ADDRESS 
EXAMPLE 2 


RPCS1*176700 172400<CR> ; CHANGE BASE ADDRESS TO 172400 
RPVEC=000254 224<CR> sCHANGE VECTOR ADDRESS 10 224 


KEYBOARD COMMANDS 


THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES 
FOR TEST (‘T* COMMAND), WRITE SEQUENTIAL DATA (‘wW’ COMMAND) 
PERF ORM COMMAND), PE 


). 
FOLLOWED BY TEST (‘WT’ COMMAND ), REQUEST A DRIVE PERF 
SUMMARY (‘S' COMMAND), OR DEASSIGN A DRIVE (‘0° COMMAND). 


THE ‘T’, ‘WW’, ‘R* AND ‘WT’ COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 
COMMAND MUST 


ON SAME ORI ° 

ORDER TO ISSUE A DIFFERENT COMMAND TO THE SAME ORIVE UNDER TEST. 
EXCEPT FOR THE ‘S‘' COMMAND, WHICH CAN BE ENTERED AT ANY TIME 
DURING THE TEST. 


IF THE PROGRAM WAS STARTED AT ADDRESS 204 OR IF NO DRIVES ARE 
ASSIGNED FOR TESTING, THE FOLLOWING MESSAGE WILL BE TYPE BEFORE 
ENTERING THE COMMAND MODE. HOWEVER, IF A ‘CONTROL C’ IS TYPED 
WHILE TESTING IS IN PROGRESS, THE FOLLOWING MESSAGE WILL 6E 
OMITTED AND THE PROGRAM WILL ENTER COMMAND MODE. 


‘NO DRIVES ASSIGNED’ 


WHEN THE PROGRAM ENTERS THE COMMAND MODE, THE FOLLOWING PROMPT 
WILL BE TYPED: 


‘HH: MM:SS 

ENTER COMMANDS: ‘ 
THE PROGRAM WILL THEN ACCEPT ANY OF THE VALID COMMANDS. AT THE 
COMPLETION OF A COMMAND, THE PROGRAM WILL EXIT COMMAND MODE AND 


TRY TO ASSIGN THE DRIVE(S) THAT WERE REQUESTED. IF THE DRIVE(S) 
CANNOT BE ASSIGNED, ONE OF THE FOLLOWING ERROR MESSAGES WILL BE 
REPORTED AND THE PROCESS CONTINUES FOR EACH DRIVE. 


?DRIVE N LOAD DEVICE T, W, R, WT 
?DRIVE N OFFLINE T, Ww, R, WT 
?DRIVE N NOT ASSIGNED o. Ss 
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2DRIVE N ALREADY ASSIGNED 1, wR, wT 
20RIVE N NOT PRESENT tT, wR, wT 
20RIVE N UNSAFE 1, wR, wT 
20RIVE N NOT AN RPO7 Tw, a, oT 


4.2.1 


NEXT, THE PROGRAM WILL PROCESS ALL THE ASSIGNED DRIVES 4S FOLLOWS: 


WHEN THE PROGRAM IS ASSIGNING THE DRIVES, THE OPERATOR WILL BE ASKED 
TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 


"CHANGE DRIVE PARAMETERS (1) N ?° 


IF THE ENTRY IS A ‘N’ FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY DRIVE PARAMETERS TO 
BE CHANGED AND WILL PROCEED TO TEST THE DRIVES AS COMMANDED . 

IF THE ENTRY IS A ‘¥* FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL 
BE ALLOWED TO CHANGE THE ORIVE PARAMETERS AS FOLLOWS. 


THE PROGRAM WILL FIRST TELL THE OPERATOR — ORIVE IS BEING 

REFERENCED FOR CHANGES AND THE HARD WIRED ORV SERIAL NUMBER FORMAT; 
‘DRIVE @ N, PGXXXX. ADDRESS LIMITS;* 

eer ‘KXXX’ IS THE HARD WIRED DECIMAL SERIAL NUMBER 


CONTAINED IN 
RPSN REGISTER OF THE MBA. IF THE ORV SERTAL NUMBER Is NOT 
JUMPERED IN THE RPSN REGISTER, ‘XXxXx’ WILL APPEAR AS ‘?77?°. 


Z — WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
DEFAULT VALUE 

NAME VALUE FUNCTION 

MIN CYL * * - 630. THE MINIMUM CYLINDER ADDRESS 

MAX CYL 630. e - 630. THE MAXIMUM CYLINDER ADDRESS 

MIN TRK ° 0 - 31. THE ADDRESS 

MAX TRK 531. 0 - 31. THE MAXIMUM 

MIN SEC ° Qo - 49. THE MINIMUM SECTOR ADDRESS 

MAX SEC 49. 0 - 49. THE MAXIMUM SECTOR ADDRESS 


THE FIELD VERSION OF THIS PROGRAM AND TESTING OCCURS 
ONLY ON THE FE CLYINDER, THIS VALUE WILL BE 630. IF RUNNING 
THE MANUFACTURES VERSION OR THE FIELD VERSION OF THIS PROGRAM AND 
TESTING IS ANYWHERE ON THE MEDIA, THIS VALUE WILL BE 0. 

‘T* COMMAND 


USED TO ASSIGN A DRIVE(S) FOR A TEST. THIS COMMAND IS REQUIRED 
TO PERFORM THE TEST OF THE DRIVE(S). 


FORMAT: TN<CR> 


N = DRIVE NUMBER. Y BE 0 TO 7 OR ‘A’. ENTRY MUST BE 
TERMINIATED BY A A CARRIAGE RETURN <CR>, 


-- _— ---= me am a re a ee eee 


F2 
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4.2.3 


4.2.4 


4.2.5 


4.2.6 


EXAMPLE: TO<CR> - ASSIGN DRIVE O FOR TEST 
TAcCP> - ASSIGN MLL AVAILABLE ORIVES FOR TEST 


‘D>’ Conan 
USED TC DEASSIGN A DRIVE(S) GEING EXERCISED. 
FORMAT: ON<CR> 


N+ DRIVE MBER. MAY BE O TO 7 OR ‘A’. ENTRY MUST GE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: DO<CR> - DEASSIGN DRIVE 0 
IGN ALL ORIVES BEING TESTED. 


DA<CR> - DEASS 
‘Ss’ CORIAND 
USED TO REQUEST A PERFORMANCE SUPPIARY TYPEOUT =. REFERENCED 
ORIVE(S). AFTER THE ‘S’ COMMAND HAS BEEN PERF PROGRAM 
WILL AUTOMATICALLY RESUME TESTING THE ORIVE(S) ate WERE UNDER TEST. 


FORMAT; SN<CR> 


N+ ORIVE MUBER. MAY BE O TO 7 OR ‘A’. ENTRY MUST GE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: SO<CR> - TYPEOUT PERFORMANCE —— FOR ORIVE © 
SA<CR> - phe ar Rte FOR ALL ORIVES 


USED TO PERFORM A SEQUENTIAL WRITE OF THE DISK, WITH DATA ACCEPTABLE 
TO THE PERFORMANCE EXERCISER PROGRAM. 


FORMAT; WN<CR> 


N © ORIVE NUMBER. yen AA AS ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>, 


EXAMPLE: WO<CR> - WRITE A DATA PATTERN ON DRIVE 0. 
WA<CR> - WRITE A DATA PATTERN ON ALL AVAILABLE DRIVES. 


*‘R’ COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE DISK. 
FORMAT: RN<CR> 


N © DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: RO<CR> - READ THE DATA ON DRIVE 0. 
RA<CR> - READ THE DATA ON ALL AVAILABLE DRIVES. 


‘WT’ COMMAND 


2 ne ee a ee -—- 


OG 0016 
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USED 10 PERFORM A SEQUENTIAL WRITE OATA, FOLLOMED BY AT CORP. 
FORMAT: wTtecCR> 


N + ORIVE MUPBER O TO 7 OR “AW. ENTRY MUST GE TERMINATED Gr & 
CARRIAGE RETURN <CR>. 


EXAPPLE: WTO<CR> - WRITE A DATA PATTERN MO TEST ORTVE 0 
WTACCR> - WRITE A DATA PATTLAN AMD TEST MA ORIVES 


pa Bag A ny A Se Oe NS Eres 
BEING EXERCISED. S$ REPORT BE DISPLAYED AUTOM Y 
IF THE PARAMETER * * IS nor Su 02 

ORIVE HAS REACHED DEFINED MPBER OF SES MO Su<06>+0 
OR IF THE OPERATOR REQUESTS TO 00 SO BY USE OF ThE ‘S* Conn. 


THE REPORT TYPEQUT CONTAINS THE FOLLOWING FIELDS: 


* TIME’ TIME 

* DRIVE’ ORIVE MUPBER - ORIVE 

*DRV S/N’ HARD WIRED ~—— ADAPTER TAL MUPBER( RESN) 
*PASS’ PRESENT PASS FOR THE ORIVE 

*MROS WRITN 7° 

* PASS’ MBER OF WORDS WRITTEN EACH PASS BY THE ORIVE 

* JOTAL: on TOTAL MUPBER OF WORDS (X10°6) WRITTEN GY THE ORIVE 
* PASS’ MUPBER OF WORDS READ EACH PASS BY THE DRIVE 

. pa TOTAL NUMBER OF WORDS (X10°6) READ GY ThE ORIVE 

* PASS’ MUPBER OF SEEK OPERATIONS EACH PASS BY THE DRIVE 
* TOTAL’ TOTAL MUPBER SEEK OPERATIONS BY THE ORIVE 

* SOFT’ MUPBER OF SOF eta ERRORS 

. P NUMBER OF HARD DATA 

* SKI’ MUPBER OF ‘SKI’ ERRORS 

*MISP’ MBER OF PROGRAM DETECTED POSITIONING ERRORS 

* OTHER’ TOTAL ERRORS OF OTHER 

NOTE: - E46, EMS, € EMLO ARE NOT INCLUDED IN Tre 


ERRORS EM1, EM2 
‘OTHER’ ERROR TOTAL. 
SOFT/HARD ERROR DEFINITIONS 


HARD ERRORS 
A. A ‘OTE’ CORIVE eae ERROR) OR A ‘DOCK’ (DATA CHECK ERROR) 
WHICH OCCURS DURING A READ DATA OR A READ HEADER € DATA OPERATION 
NOT BECOME CORRECTABLE AFTER 


AND IS NOT CORRECTABLE OR DOES NO TER THE 
cotta Oe CEU UNEE PE COVES BETSY SENSES 1 RE OD 


THE RETRY SEQUENCE IS 16. RE-READS AT TRACK CENTER AND 2 ATTEMPTS 


SEQ 0017 


is2 
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7.1 


GOTH AT POSITIVE MO NEGATIVE OF ETS. 


SOFT ERRORS 

a. ALE *OCK’ 

: Oe Elan enmoms. we WeKtOn GECOE ECE COMRECTAGLE OURING 
Tey WHICH ARE READ yoy 


DATA COMPARISON OCCURS AFTER EACH ‘RODAT’ (READ DATA) OF ‘ROO’ 
(READ HEADER A DATA) OPERATION WER THE FOLLOWING COMDITIONS: 


A. THE COPPWED TERMINATED WITH MD ERRORS MD Su<O1><0 
OCK’ SET @@ Tre ERROR 


** GonmecTagle on We SECTOR In ERAON 1S READ COMmECTLY 


VERIFICATION OF DATA WRITTEN 


— bs ihe eh ge: | THROUGH READING ne BACK 
pr Bal & pL DATA rar Os Fran Tee 15. PATTERNS TrROUGH 
SSUING A TER OOING A WRITE DATA COPPA. 


BAD ADDRESS FLAGGING 
ACCOMPLISHED GY THE RPO? HARDWARE SKIP DEFECT. 


i og Ea Mt a py a 


ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. eS 
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH I aL OF he 


SECTION DESCRIBING THE PARTICULAR ERROR vENDER- 
ERROR DESCRIPTION LINES 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 

MESSAGE 


Oe oo18 
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1a, 


tent 
RH CONTROLLER INTERMOT OCCURRED (Brug -0) 


TE OH a na @@ rE ATTENTION Gummer 
PEGIS (RMAs) CLEARED. 


MASSBUS PARITY ERROR (HCPE*1) 
The INOICATED REGISTER PRON De DOICATED Onive. 
MASSBUS PARITY ERROR (PAM-1) 


ADDRESS PLUG CHANGE GIT SET 
THE ‘OPE’ GIT WAS SET WEN THE INDICATED OF IVE INTERRWTED. 
Qn DIDN'T RESPORD 10 ADORESSING 


WEN THE PROGRAM ADDRESSED Tee GH, MD RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


UNCORRECTABLE MASSBUS PARITY ERROR 


THE PROGRAM HAS TRIED 3 TIMES 10 READ OR WHITE THE INDICATED 
REGISTER. 


FATAL MASSBUS PARITY ERROR 


A CONTROL BUS PARITY ERROR OCCURRED WEN ThE Mh AITEPPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 


not Gita Tre acwre COOTTION.. tre PROLNeN wit 


e Dnive. Cawot 
Qt EXERCISED WNTIL Ire UNSAFE CONOITION HAS BEEN 
GY MANUAL INTERVENTION, 
OPERATION NOT COMPLETED WITHIN TIME L INET 


THE OID NOT COMPLETE THE OPERATION WITHIN 10. SECONDS 
AFTER OPERATION WAS INITIATED. 


UNIT WENT OFFLINE 


TT TT TTT ere 
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USER DOC VFENTATION 
to TCATED GPteetron 
(i ee TS Ca oO.) the wh. sutormmtiCaar 
OE ASSIGN of: GPERaToR must Stasciow Pe Of 


wit te *T COPWRO TO ME INITIO‘: TEST Ing. 
eS 0 RESPONSE TO PORT aequesT 


10 mg oes TD bom pont ers = 1S, secoes wien Pa ont mbes 
20 8 NMEADER CAC teen 


RF Reena 


PRS TN See XT ET 


Pihae: eg ai SME AE 


er2S = URTTE COECK ERROR - DATA CECH (‘OCH’) NOT SET 


: tone nln mse, enon wl 6 set ot omaree, bu pe imma 


En26 = HEADER READ ERROR - erie 
Seat Minas ei pena 
En25 MEADER READ ERROR - somber 


Sit IMITIMLY. Te Ore Te OPERATION "anu oe. meieo S Ties. 


EN26 «86 FORMAT ERROR (‘FER’) 


del SIT Sit unas or set Ne Content Tein OF Tee ranean fone 
DISPLAYED. THE OPERATION wILi GE RE 5 TIES. 
EM27  WEADER COMPARE (‘HCE’) ERROR 


JZ 
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Se rearhiae cn ee ataeae BD teas Oe St ate. 


i OPERATION DCOPLETE ERROR CCOUMED AT HE DOICATED 
ORIVE TIMING ( OTE") Enno 


SET Ee ne an ethan s Toaee DSccateD SECT. ne 


PARITY (*PAR’) ERROR AFTER GPERATION StanTED 


Cenation Mia" Rites 1 WAS COWLETED. De 


‘TRE’ IS SET IN Tee Ow One ae Sans 
a gy ot 


PEt oer sere g anes We. Seee er 


CAN'T MATCH DATA READ WITH A PATTERN 


K2 


Sa en GND CO8.60 8-CEE-ES 80182128 ORE 8-08 


Fa SS & BS Cores ors eat re aw & HE SIETD 
ose) =—s EF GITT(S) SET, GuT SO ERROF SIGHED GF HE @ CONTeGLL ES 
STINE SYS LS SS 


Te Pe pee ra ae 
Sa Susie cae Sree 


emes ~aneraasooclate cen ep teagig 
cn unos Taser tmed ae, DeolcAreD ne ss 
Pa yd pA Ce 
SO SEEK IMCOPLETE Gene 
TE ORIVE SIGCLED EITHER ‘SxI" EnmcR. 
Si oT SED 
uo 8 66(DEVICE WGWE 


Gtaed or A bnive Gee Doimlio OS 


*PRSNT COPPWID> KXXX PREV COPPUND: VYTY’ 
MNEMONICS USED FOR THE COMMANDS ARE DEFINED BEL Ow: 
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htm > mem! 
ein fire 2, 


ta fe i?) 


aa aaah “iP on 
a bee an te 


mech. aPCS2, Os. WER, Ree FoRm ’ 
Seah ae ante eee Ba ew 
a SUAS are reso a 
STPUPAM PLA LSU" a 


* ST GE O FOR TE ERROR 
SoreE Fr tu ine ERROR WAS PROCESSED BY THe 


THE ADDRESS OF THE ERROR SECTOR THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE TRACK, € 
sec ADORESSES ARE IN . 

LIM 4 


PRSNT ADDR: CXXX TYY SZZ PREV ADOR= Cu Tyv Suu 


THIS LINE IDENTIFIES THE ADORESS WHEN THE ERROR WAS DETECTED 
THE PREVIOUS ADORESS IS ALSO GIVEN. CYLINDER, TRACK, 6 SECTOR 


Sek boca a UNS COEEO S-GEE-ES 80r8R0dS OnE $20 


USER DOCUMENTAT 


ADDRESSES GME GIVEN Ih DEC TAG . 


START CYLe EKER END CYL rrr 


THIS LIME IDENTIF IC STARTING GR A SEEK (CIPPLIED) 
eg tre DESTINATION CHINGER. C TURNER AOOMESSES AE I” 


START CYL© KXX END CYL« rv actum Cris 277z 


vas S LINE IDENTIFIES Tre ae = | ire ETL INR A SEEK, 
pn M2 gale He : Ry! —— ~~ Dee TUALLY 
LIM 7 


RPBA> KXXX RPWCe YYTY 
THIS LINE GIVES THE Re ge geet Beg ~ i B 


THE 
REGISTER AND THE Rn Re CONTROLLER WORD COUNT REGISTER™ THIS LINE 
NOT PRINTED IF Su<OS> IS NOT SET. 


START CYL= XXX START TRK* YY START SECTOR: 27 


THIS LINE IDENTIFIES THE STARTING DISK ADORESS OF THE PRESENT 
OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 


RPDAs KXXX RPCAs YYYY 


THIS LINE GIVES THE CONTENTS OF THE RP TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYL 
ADDRESS REGISTER. 


BUFFER ADDR: XXXX WRD CNT= YYYY ACTUAL NUMBR WRDOS XFRD= 2722 
THIS LINE GIVES THE STARTING ADORESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OPERATION, ITS SIZE( WORD COUNT ) AND THE 
ACTUAL OF TRANSFERED. THE STARTING ADDRESS OF THE 
BUFFER IS IN OCTAL, THE WORD COUNT AND WORDS TRANSFERED VALUE 
ARE IN DECIMAL. 
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EXPCTD DATA= XXxXxX RECEVD DATA= yvvYY WORD POS= 222 


THIS LINE GIVES THE EXPECTED DATA, THE RECIEVED DATA FROM THE DISK, 


AND THE LOCATION OF THE WORD IN THE SECTOR. 
DECIMAL 


HEADER CONTENTS OF ERROR SECTOR= XXXX XXXX XXXX XXXX 


THE WORD POSITION IS IN 


THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 


GAVE THE ERROR. 


RPEC1= XXXX RPEC2= YYYY 


THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 


WHICH BECAME ECC CORRECTABLE DURING RETRY. 


ECC CORRECTABLE WITHOUT OFFSET 


THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 


NECESSARY. 


READ CORRECTLY AT (NEG OR POS) OFFSET 


THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 


OFFSET VALUE. 


ECC CORRECTABLE AT (NEG OR POS) OFFSET 


THE SECTOR IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


OFFSET 


CORRECTED ON X RETRY 


THE Sram WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


ATTEMP 


—— 

ow 
« 

ws 
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UNCORRECTABLE AFTER XK RETRIES 


THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS, 


DIFFERENT ERROR DURING RETRY 
WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED. 


IF THIS LINE IS PRINTEC, THE RH/RP REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 


TOTAL COMPARE ERRORS= XXXX 


THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 


THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 


ECC CORRECTION RESULTS 
THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED. 


THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) 
BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 


ERROR BURST BEGINS AT WORD Xxx IN DATA FIELD OF ERROR SECTOR 


THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ‘DCK’ ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 


CIE JORO RPOT PERF EKER MACRO 04.00 1 DEC BF 10: r0R PA 8 OS 
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RETRY, = “X*K 15 THE WORT OFFSET VALUE FROM RMFCI’ AND IS IN 
DECIMAL. 


ERROR WAS NOT IN THE DATA READ 
ECC CORRECTION CAN'T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED 10 MEMORY, 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 
IF SW<OS> IS SET, THE SECTOR WHICH GAVE THE ‘DOCK’, ‘DTE’ OR, 
‘MCF’ ERROR OR ‘HARD 


* DATA CHECK ERROR IS PRINTED. THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 


TOTALS; ERRORS:X WRDS WRITN: YYYY WROS READ: 22272 

THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 

TYPE ERRORS. 

‘ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 

‘WROS WRITN’ IS THE TOTAL NUMBER OF WORDS WRITTEN THE DRIVE. 
‘WARDS READ’ 1S THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 


TOTALS; SEEKS: XXX TOTAL POS ERR» yyy TOTAL SKI ERR= Z 
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


*TOTAL SEEKS’ IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
BY THE ORIVE. 


‘TOTAL POS ERR’ IS THE TOTAL NUMBER OF PROGRAM DETECTED POSITIONING 
ERROR BY THE DRIVE. 


‘TOTAL SKI ERR’ IS THE TOTAL NUMBER OF ‘SKI’ ERRORS SIGNALED BY 
THE ORIVE. 


PROGRAM DESCRIPTION 


PROGRAM OPERATION 


ee | 


EG O62? 


D4 


CZAR LORO RPO PERF EXER MACRO V046.00 1-0EC 63 10:52:78 PAGE 3 26 


USER DOCUMENTATION 


WHEN THE PROGRAM IS STARTED. _PROVIOI apt rt ENABLE BIT IS SET 
OR DIAGNOSTIC LOADED BY OTHER THAN APT SCRIPT MODE, ALL TABLES AND 
PARAMETERS ARE CLEARED on TNT IA IZED. THE Pama tens wn WHICH ARE 


RS 
UNDER OPERATOR TTy ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 
CONSISTENCY. &h anki ae INTERRUPT ENABLE (‘TE*) IS SET, TT¥ 
*E BOARD ENMABLE IS SET, AND THE KW11-L OR KW11-P CLOCK 
IS STARTED. COMMAND ENTRIES WILt NOW BE ACCEPTED BY THE 


THE PROGRAM SCANS ITS INTERNAL ASSIGNENT TABLES, LOOKING FOR: 


1) ORIVES TO ASSIGN/DEASSIGN 

2) PERFORMANCE REPORT TYPEOUT REQUESTS 

3) ORIVES REQUIRING INITIATION, BUFFER ASSIGNEMENT, 
OR PARAMETER SEL 

4) ORIVES COMPLETING CURRENT OPERATIONS. 


THE PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. 
IN THE CASE OF THE PROGRAM AT (NITIAL START, THE FIRST ENTRY WILL 
GE MADE BY THE OPERATOR WEN A DRIVE IS ASSIGNED ('T' COMMAND). 


WHEN A ORIVE IS eee yw THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE 
ORIVE IS PRESENT, IS AN RPO7?, AND IS ONLINE. THE ASSIGNMENT 
ROUTINE THEN ISSUES A ‘READIN PRESET’ INSTRUCTION, SETS ‘FMT16°, AND 
ISSUES A ‘RECALIBRATE’ INSTRUCTION. 


PARAMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK COMMAND. THE ASSIGNED BUFFER 
FILLED a ITE CHECK COMMANDS ARE 


WILt BE WITH THE SELECTED PATTERN. (Um CHE 
ISSUED AFTER EACH WRITE COMMAND. THE WRI COMMAND USES THE 
TERS SELECTED FOR THE PRECEDING WRITE COMMAND.) TROL 


THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF 


PERFORM THE OPERATION, THE PROGRAM ISSUES A SEARCH INS 
To 0 THe © DRIVE WITH A: a ee SECTOR WHICH IS 1 SECTOR CAM IER 
‘TRANSFER’ SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE 

OPERATIONS ON ANOTHER ORIVE WHILE THE PRESENT DRIVE, OR OTHER 

DRIVES, ARE SEARCHING FOR ‘TARGET’ SECTORS. ALL SEEKS ISSUED BY 

THE PROGRAM ARE IMPLIED SEEK SEARCH . SEARCHING 
DRIVE FINDS THE ‘TARGET’ SECTOR AND INTERRUPTS, PROGRAM 

ISSUES THE REQUESTED COMMAMD TO THE DRIVE THAT INTERRUPTED. 


WHEN THE DATA TRANSFER OPERATION IS COMPLETE. THE DRIVE REGISTERS 
ARE STORED AMD A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 


IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED ORIVE REGISTERS 
CONTROLLER 


IVE IS RETURNED 
PROGRAM THEN INITIATES A DATA TRANSFER ON A WAITING DRIVE AND 
RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 


ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 


3EQ 0628 


a 


EG 9029 


Ema2 
SIGNALED GY THE RN CONTROLLER - Emad 


SET, GUT NO ERROR 


AILURE 


balks 


$ 
Une Maite 


ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 
GPERATION NOT COPPLETED WITHIN TIPE LIMIT - EMS 
UNIT WENT OFFLINE - EM14 


ERROR BIT(S) 
LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS 


ERRORS WILL BE REPORTED AS Tre FIRST ERROR TYPE CHECKED. 
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL 
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On a TTY) oe SSOP WAS UAOLE mcceSs fre Onive 

oan re OT-ER th $ borne at aa Inks 10 Inteoone? _s cont 
TED vassaues Paoumer. 

fe eecis it ae oe ee gh Sh 

TERM TWA tis Ou EmAOR. Tre RIVE WILL WOT GF MELEASED Wet iL 
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HISTORY 


ite 


67 


177570 


000000 


s*LAST REVISION 25-MAY-83 


-TITLE CZRJOBO RPO7 PERF EXER 
s*COPYRIGHT (C) 1983 

s*DIGITAL EQUIPMENT CORPORATION 
os SPGS.. CO. 80963 


1 SPROGRAM BY MIKE LEAVITT 


jeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
a (MAINDEC-11-DZQAC-CS), 18-MAR-81 


SeTTL OPERATIONAL SWITCH SETTINGS 


1S HALT ON ERROR 

13 INHIBIT ERROR TYPEOUTS 
:* 10 BELL ON ERROR 

8 INHIBIT END OF PASS MESSAGES 

6 DON’T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 

be) A. PARTIAL REGISTER DISPLAY IF ERROR 

8B. NO ECC CORRECTION RESULTS DISPLAYE IF ERROR 

4 DO NOT CHECK FOR MAXIMUM ERROR COUNTS 
DO NOT DROP DRIVE AT END OF TEST 

3 . DISPLAY ERROR SECTOR IF ‘DOCK’, ‘OTE’, OR ‘WCF’ ERROR 
. DISPLAY SECTOR IF ‘DOCK’ ERR UNCORRECTABLE AFTER 
28TH RETRY 
- IF DATA COMPARE ERROR € SWO7 SET, DISPLAY 
7) REMAINDER OF BUFFER 
:* 2 A. DO NOT TYPE DRIVE STATUS AT PROGRAM START 
:* 8. DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME 
:* 1 INHIBIT DATA COMPARE AFTER READ W/O ‘DOCK’ ERROR 
34 0 READ ONLY MODE 


-SBTTL BASIC DEFINITIONS 
s#INITIAL ADDRESS OF THE STACK POINTER ## 1100 ae 


STACK = 1100 

ERROR = EMT s3sBASIC DEFINITION OF ERROR CALL 
SCOPE = IOT 3sBASIC DEFINITION OF SCOPE CALL 
s#MISCELLANEOUS DEFINITIONS 

HT = 11 3;CODE FOR HORIZONTAL TAB 
LF * 12 3sCODE FOR LINE FEED 

CR * 15 3sCODE FOR CARRIAGE RETURN 

CRLF = 200 3sCODE FOR CARRIAGE RETURN-LINE FEED 
<8 - = 177776 ssPROCESSOR STATUS WORD 

STKLMT = 177774 ssSTACK LIMIT REGISTER 
PIRQ * 177772 ssPROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 ssHAROWARE SWITCH REGISTER 
ODISP = 177570 s sHARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO = 60 3sGENERAL REGISTER 
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BASTC DEFINITIONS 


B44 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


:3STACK POINTER 


3 sPROGRAM 


IONS 


3 ;PRIORITY 
3;PRIORITY 
s;PRIORITY 
3: ;PRIORITY 
3 sPRIORITY 
3 sPRIORITY 
ssPRIORITY 
3 sPRIORITY 


COUNTER 


LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 


NOY aulro 


Ri > @i 

R2 * 
RS - @5 
R4 - 64 

R5 - a5 
R6 * 86 
R7 «= @7 

sp = 6 

PC = @? 
;@PRIORITY LEVEL DEF INIT 
PRO = 0 
PRI » 40 
PR2 = 100 
PRS = 140 
PR4 * 200 
PRS = 240 
PRE = 300 
PR7 = 340 
3¢“SWITCH REGISTER” SWITCH DEFINITIONS 
Swis * 100000 
Swi4 = 40000 
Swi3 = 20000 
SwWi2 = 10000 
Swill = 4000 
Sw10 = 2000 
Ss = 1000 
SWO8 « 400 
SwO07 * 200 
SWO6 = 100 
Swos s 40 
SWO4 = 20 
Swos *» 10 
SwOo2 = 4 
Swol 72 
SWOO *=1 
SW9=SWO9 
SW8 = SWOS8 
SW7*SWO7 
SW6 = SWO6 
SW5-SwWOoS 
SW4 = SWOS 
SwW3-SWOS 
SW2=SWO02 
SW1=SWO1 
SWO=SWOO 


BIT14 = 40000 
BIT15 = 20000 
BITi2 = 10000 
BIT1i1 += 4000 
BIT10 = 2000 
BITO9 = 1000 
BITO8 = 400 


RE 


SEQ 0039 
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BASiC DtF INTTIONS 


000001 


©0o0 
loc 
ao 
<0 
10 
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é 
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z 
Sess 


BIT 

BIT9-BITO9 
B1T8-BI TOS 
BIT7*BITO7 
BIT6-BITO6 
BITS*BITOS 
BIT4-B1T04 
BITS-BITOS 
BIT2-BITO2 
BITi-BITO1 
BITO=BITOO 
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C4 


Ph ae? — TRAP es, ADDRESSES 


to 
14 
14 
14 


-SBTTL RPO? REGISTERS 


TIME OUT AND OTHER ERRORS 
; ;RESERVED AND ILLEGAL INSTRUCTIONS 


ssBREAKPOINT TRAP (BPT) 

6s TOUT OUTPUT TRAP CIOT) #eSCOPEsce 
+ POWER FAIL 

et TRAP (EMT) eeERRORes 
33“TRAP” TRAP 

ss TTY KEYBOARD VECTOR 

ssTTY PRINTER VECTOR 

3sPROGRAM INTERRUPT REQUEST VECTOR 


sCONTROL AND STATUS REGISTER 1 (RPCS1) 


Ie * 100 
ROY * 200 
Al6 * 400 
Ai? * 1000 
PSEL * 2000 
MCPE * 20000 
TRE * 40000 
3SC * 100000 


s INTERRUPT ENABLE (BIT 06) 
sREADY (BIT 07) 


te ORDER BUS ADORESS BIT (BIT 06) 
ADDRESS BIT (BIT #9) 


HIGH ORDER BUS 
;PORT roy ser #10) 


sMASSBUSS PARITY er De #13) 


3 TRANSFER ERROR (BIT 


sSPECIAL CONDITION (ert @15) 


sWORD COUNT REGISTER (RPWC) 
sCEACH BIT IS CALLED BY BIT NUMBER) 


sBUS ADDRESS REGISTER (RPBA) 
:CEACH BIT IS CALLED BY BIT NUMBER) 


sCONTROL AND STATUS REGISTER 2 (RPCS2) 


US1 ei 
us2 2 
US4 » 4 


sUNIT SELECT (BIT #0) 
sUNIT SELECT (BIT 01) 
sUNIT SELECT (BIT 02) 


LT TT 


SEG 9040 


CZRICRO APO 
RPO” REGISTERS 


* PERS EXER MACRO 


000040 
000100 
000200 


000400 
001000 
002000 


D4 


¥O6.00 1 DEC 88 10:82:78 Pat S S SEG 0041 
BAl * 10 sBUS ADDRESS INCREMENT oat (BIT e*) 
Pal * 20 sMASSBUS PARITY TEST (BIT 
cir * #4 sCLEAR ¢ #5) 
IR * 100 sI READY (BIT 0% 
or * 200 : ADY (BIT #7) 
OPE * 400 MASS BUS PARITY ERROR (BIT 06) 
MxF = 1000 sMISSED TRANSFER ERROR (BIT @9) 
PGE * 2000 ERROR (BI 
NEM * 4000 sNON EXISTENT MEMORY (BIT #11) 
NED * 10000 sNON EXISTENT ORIVE (BIT #12) 
UPE * 20000 sUNIBUS PARITY E (BIT #13) 
we * 40000 sWRITE CHECK ERROR (BIT 014) 
OT * 100000 sDATA LATE (BIT #15) 


sDATA BUFFER REGISTER (RPDB) ' 
sCEACH BIT IS CALLED BY BIT NUMBER) 


' 
.SBTTL RPO? REGISTERS | 
sCONTROL AND STATUS 1 REGISTER. (000) 


sGO BIT (BIT #0) 


FUNCTION CODE BIT @2 
sFUNCTION CODE BIT #5 
sFUNCTION CODE BIT 04 
sFUNCTION C 


OOE BIT 05 
sDEVICE AVAILABLE (BIT 011) 


sORIVE STATUS REGISTER (RPDS1) (001) 


sERROR REGISTER 001 (RPER1) (002) 


GO *1 
FO *2 
Fi 24 
F2 * 10 
F3 * 20 
Fa * 40 
Ova * 4000 
OFFON = 1 
EWN 2 
ILv 4 
vv * 100 
ORY * 200 
DPR * 400 
PGM * 1000 
LeT * 2000 
wR * 4000 
MOL * 10000 
PIP * 20000 
ERR * 40000 
ATA * 100000 
LF *1 
ILR 2 
RAR 24 
PAR * 10 
FER * 20 
WCF * 40 
ECH * 100 
HCE * 200 
HCRC = =: 400 
AOE * 1000 


sOFFSET ON (BIT 80) 
EARLY WARNING ( 


3 

peal h eo. OPERATION IN PROGRESS (BIT #135) 
sCOMPOSITE ERROR (BIT #14) 

SATTENTION ACTIVE (6IT #15) 


sILLEGAL FUNCTION (BIT #0) 

sILLEGAL REGISTER (BIT #1) 

sREGISTER MODIFICATION REFUSED (BIT #2) 
sPARITY ERROR (BIT #3) 


F) ERRUR 08 
sADDRESS OVERFLOW ERROR (BIT @9) 
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187 
18a 
1¢9° 
190 
i191 
192 
193 
134 
195 


197 
198 
199 


010000 


7 ae 
me 
ore 
| 
UNS 
OCK 


10000 
20000 


s3s°"" 


100 
200 


E4 


sINVALID ADDRESS cert on (BIT #1c) 


1) 


RROR (err Miz) 
i a Income re owes e138) 


UNSAFE (81 4 
sDATA CHECK ERROR (GIT 15) 
sMAINTENANCE REGISTER (RPTRI (COS) 
sATTENTION SUMMARY PSEUDO-RESISTER (RPAS) (606) 


sDEVICE O (BIT 60) 
sOEVICE 1 (BIT 01) 
sOE VICE BIT 2) 
sOEVICE 3 (BIT #3) 
sOEVICE 4 (BIT 04) 
eevee s pS 244 #5) 

1 $ ser 06) 
DEVICE BIT @7) 


sDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (005) 
sORIVE TYPE REGISTER (RPDT) (06) 


oT0O °3 sORIVE TYPE MLUPBER BIT 1 
oT01 °2 sORIVE TYPE MUPBER BIT $ 
oT02 *4 sORTIVE TYPE MUPBER BIT 
oTOS * 10 s TYPE NUMBER BIT 4 

Tos * 20 sORIVE TYPE MUPBER BIT S 
oTos * 40 sORIVE TYPE MUPBER BIT 6 
OT06 * 100 sORIVE TYPE MUPBER BIT 7 
0107 * 200 sORIVE TYPE MUPBER BIT 6 
OT08 * 400 sORIVE TYPE MUPBER BIT 9 
ORQ * 4000 sORIVE REQUEST REQUIRED (BIT #11) 
"OM * 20000 MOV MEAD (BIT 013) 

TAP = 40000 sTAPE ORIVE (BIT 014) 
NSA * 100000 sNOT SECTOR ADORESSED (BIT #15) 
sLOOK-AMEAD REGISTER (RPLA) (007) 
sci * 100 sSECTOR COUNT FIELD O (BIT 06) 
sce e sSECTOR pay FIELD 1 (BIT 07) 
sco4 * 400 sSECTOR FIELD H (BIT #6) 
$c10 * 1000 sSECTOR COUNT FIELD 3 (BIT @9) 
sc20 * 2000 sSECTOR COUNT FIELD 4 (BIT #10) 
sc40 * 4000 sSECTOR COUNT FIELD S (BIT #11) 
$C100 == 10000 sSECTOR COUNT FIELD 6 (BIT #12) 


sSERTAL NUMBER REGISTER (RPSN) (010) 
NUMBER ) 


sCEACH IS CALLED BY BIT 


sOFFSET REGISTER (RPOF) (11) 


200 
2000 
4000 
10000 


sRPO? OFFSET DIRECTION 
iHEADER COMPARE INHIBIT (BIT #10) 
s€ TION CODE INHIBIT (BIT #11) 


RROR CORRECTI 
iFORMAT BIT (BIT #12) 


5EQ 0042 
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EQ 0045 


@EGISTERS 


- 


JOBO GPO” PLA FUER MACRO WO6.00 1-JEC GS 10:82:28 Pace 5 5 


wc 


mPcc) (e138) 
NOPBER) 


s8PO7 ERROR REGISTER 02 (RPER2) (0146) 


J 


ou 


1i"1S CRLED Ov Bi! OBER) 
‘tence BIT TS CALED OF 


s08S 
af 


a8 $ 
~ 
e=8 =| oe 
. poh ah we ~ et ~s3..5 
oe — 
g.SSS, 285-8 San 
as 
os id ~ — Sa 
e ons 
“tie ‘ i Scagicet 
: mac 
9 aa pOsre Ss eB5Shs 


) 
) 


> (e117 


TER (RPEC1) (016) 
(EACH GIT IS CALLED GY BIT MPBER 


CALLED GY GIT MPBER) 


s®PO7 ERROR REGISTER OS (RPERS) (015) 
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jh - 
‘ss neg ata a>, *ROr®* > 
001516 000400 CEGMC: .WORD 256. +S ane wRO ? ta 6 - WROCNT) 
-SBTTL TABLES, CONSTANTS, AMD VARIABLE LOCATIONS 

001520 000000 GRDERG: . WORD ° 

001522 000000 “WORD to) 

001524 000000 “WORD 0 

001526 000000 :WORD 0 

001530 000000 -WORD 0 

001532 000000 “WORD 0 

001534 000000 -WORD 0 

001536 000000 -WORD 0 

001540 000000 -WORD 0 

001542 000000 ASMLST: .WORD 0 +A BIT SET IS AN ASSIGNED DRIVE 

ADDRESSES OF DRIVES TO GE DROPPED 

001544 000000 OORVS : -WORD 0 

001546 000000 -WORD 0 

001550 000000 -WORD 0 

001552 000000 -WORD O 

001554 000000 -WORD 0 

001556 000000 -WORD 0 

001560 000000 -WORD 0 


| 
| 
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OCAT IONS 


VARIABLE L 


sADDRESSES OF NEWLY ASSIGNED ORIVES 
NEWUNT: 


3 ooooooooeo 


3LIST OF 
AVAIL: 


IVES WAITING FOR BUFFERS/PARAMETERS 


55555885 


COCoCOCOCCOCE ooooocoooo 


sLIST OF DRIVES WAITING FOR BUFFERS 
WAIT: WORD 
. WORD 
‘WORD 
WORD 


a5583 


;BUFFER ALLOCATION TABLE ENTRY COUNT 


55553 555555595885 


te) 
.e) 
0 
0 
te) 
0 
0 
te) 
0 
oO 
te) 
0 
te) 
te) 
te) 
9) 
0 
te) 
0 
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001766 000000 000000 WORD 0,0 
001772 000000 000000 “WORD 0,0 
001776 000000 000000 “WORD 0,0 
002002 000000 000000 "WORD 010 
002006 000000 000000 “WORD 020 
002012 000000 000000 “WORD 610 
002016 000000 000000 “WORD 0.0 
002022 000000 000060 “WORD 0.0 
002026 000000 000000 "WORD 0.0 
002032 000000 000000 “WORD 0,0 
002036 000000 000000 “WORD 9.0 
002042 000000 000000 “WORD 0.0 
002046 000000 000000 “WORD 0.0 
002052 000000 000000 “WORD 0,0 
;ORIVE PARAMETER BLOCK(DPB) POINTER TABLE 
002056 046314 BLKADR: .WORD  ORIVEO ;ADORESS OF THE PARAMETER BLOCK FOR DRIVE 0 
002060 046556 “WORD ORIVE1 ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1 
002062 047020 "WORD ORIVE2 ADDRESS OF THE PARAMETER BLOCK FOR DRIVE > 
002064 047262 “WORD DRIVES ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE $ 
002066 047524 "WORD DRIVES ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 4 
002070 047766 “WORD DRIVES jADDRESS OF THE PARAMETER BLOCK FOR DRIVE 5 
002072 050230 "WORD DRIVES ;ADORESS OF THE PARAMETER BLOCK FOR DRIVE 6 
002074 050472 “WORD ORIVE? jADDRESS OF THE PARAMETER BLOCK FOR DRIVE 7 
DRIVER COMMAND CONTROL TABLE (USED IN RP DRIVER) 
002076 151 COMTBL: .BYTE WCKD  ;WRITE CHECK DATA 
002077 ~—Ss«877 y ts WRITE CHECK HEADER AND DATA (NOT USED) 
002100 ~—s- 161 "BYTE WRIDAT {WRITE DATA 
002101 ~—« 377 "BYTE -1 SFORMAT TRACK (NOT USED) 
002102 ~=s-<i7 “BYTE RDDAT READ DATA 
002108 ~—s«-:178 “BYTE ROHD § ;READ HEADER AND DATA 
sFUNCTION(COPMAND) CODE CONTROL TABLE 
002104 ~—- 004 detec: BYTE | SEEK 
002105 006 eve 6 SRECAL 
002106 010 "BYTE 10 SORIVE CLEAR 
002107 ~—s O12 ‘BYTE 12 ;RELEASE 
002110 016 "BYTE 16 RETURN TO CENTERLINE 
002111 020 "BYTE READIN PRESET 
002112 O22 "BYTE 22 iPACK ACKNOWLEDGE 
002113 030 "BYTE 30 1SE 
002114 050 "BYTE 50 iWRITE CHECK DATA 
002115 052 "BYTE 52 }WRITE CHECK HEADER AND DATA 
002116 060 "BYTE 60 WRITE DATA 
002117 «062 ‘BYTE 62 tFORMAT TRACK 
002120 670 "BYTE 70 iREAD DATA 
002121 072 "BYTE 72 TREAD HEADER AND DATA 
002122 «377 "BYTE -1 | TERMINATOR 
LEVEN 
MESSAGE CONTROL TABLE FOR ‘OPTBL’ TABLE 
002124 123 105 105 MNTBL: .ASCIZ /SEEK 
002134 122 105 103 "ASCIZ ZRECAL 7 
002144 104 122 126 "ASCIZ /DRVCLR / 
002154 122 105 114 "ASCIZ /RELSE / 
002164 122 «124 ~—St«W108 "ASCIZ “RTC 7 


5EG 00S2 


ce 
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002174 ize 105 101 -ASCIZ /READIN « 
002 206 120 101 103 ASCIZ / 
002214 i238 105 101 -ASCIZ /SEARCH . 
002226 127 103 113 -ASCIZ , 
02234 127 103 115 -ASCIZ /WCKHD / 
002284 127 122 124 -ASCIZ /WRIDAT / 
002254 106 115 124 -ASCIZ /FMTIRK 7 

122 104 104 -ASCIZ /RDDAT 7 
002274 122 104 i10 -ASCIZ /RDMD / 
002304 116 117 116 -8SCIZ “NONE / 


SEG 0653 


7° 


002454 077777 
002456 177777 


002460 177776 


RPOT PERF EXER MACRO Vos 
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.00 Fe 3 63 10:52:28 PAGE 10 
OCATIONS 


DS 


aSTANDARD DATA PATTERN POINTER TABLE 


STNDAT; 


ZEROS: 
DATAO: 


DATAL: 


DATA2: 


077777 
177777 


177776 


STANDARD DATA PATTERN O 


sSTANDARD DATA PATTERN 6 

sSTANDARD DATA PATTERN 7 

sSTANDARD DATA PATTERN 6 

sSTANDARD DATA PATTERN 9 

sSTANDARD DATA PATTERN 10 
sSTANDARD DATA PATTERN 11 
sSTANDARD DATA PATTERN 12 
sSTANDARD DATA PATTERN 15 
sSTANDARD DATA PATTERN 14 
sSTANDARD DATA PATTERN 15 
sALL O'S PATTERN 

sALL 1°S PATTERN 


sALL O'S DATA PATTERN 


sSTANDARD PATTERN 1 


sSTANDARD PATTERN 2 


VEG 0054 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
002462 177774 -WORD 177774 
002664 177770 «WORD =177770 
002466 177760 «WORD 177760 
002470 177740 «WORD 177740 
0024672 177700 «WORD 38177700 
0024674 177600 «WORD 177600 
002476 177400 «WORD = 177400 
002500 177000 -WORD 177000 
002502 176000 -WORD 176000 
002506 174000 «WORD 174000 
170000 «WORD 170000 
002510 160000 -WORD 160000 
12 140000 «WORD 140000 
002514 100000 -WORD 100000 
002516 000000 -WORD 000000 
002520 000000 DATAS: .WORD 000000 ; STANDARD PATTERN $5 
002522 000000 «WORD 000000 
002524 000000 -WORD 900000 
002526 177777 «WORD 177777 
002530 177777 «WORD «177777 
002532 177777 «WORD 177777 
002534 000000 -WORD 000000 
002536 000000 -WORD 000000 
002540 177777 «WORD 177777 
002542 177777 «WORD 177777 
002544 000000 -WORD 000000 
002546 177777 «WORD «177777 
002550 000000 - WORD 
002552 177777 «WORD 177777 
002554 . WORD 
002556 177777 «WORD =177777 
002560 1333531 DATA4: .WORD 15355351 ;STANDARD PATTERN 4 
002562 155531 -WORD 153355351 
002564 153531 -WORD 1535551 
002566 155531 «WORD 1555351 
002570 1355531 -WORD 15355 
002572 1535531 -WORD 1555351 
002574 155551 -WORD 1533551 
002576 153531 -WORD 135531 
002600 153331 -WORD 1535531 
002602 15355351 -WORD 15335531 
002604 155531 -WORD 133331 
002606 1535551 -WORD 135531 
002610 1533331 «WORD 15335331 
002612 15335531 -WORD 133531 
002614 155531 «WORD 133331 
002616 1333531 -WORD 1555351 
002620 052525 DATAS: .WORD 052525 ,STANDARD PATTERN S 
002622 052525 -WORD 052525 
002624 052525 «WORD 052525 
002626 125252 -WORD 125252 
002630 125252 -WORD 125252 
002632 125252 -WORD 125252 
002634 -WORD 052525 
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ABLES, CONSTANTS, @@ VARIABLE LOCATIONS 
002636 032525 WORD «032525 
002640 125252 WORD 125252 
002652 “MORD 
Sooess | 52525 ‘amp Baza 
002656 125252 WORD 125252 
002660 167556 DATAS: .WORD 1467556 STANDARD PATTERN 6 (NOT WORST CASE) 
002662 147556 WORD «147556 
002664 167556 WORD 167556 
002666 1467556 .WORD 1467556 
002670 147556 WORD 147556 
002672 1467556 WORD 147556 
002674 1467556 .WORD 147556 
002676 1467556 .WORD «147556 
002700 167556 .WORD «14 7556 
002702 1467556 .WORD 147556 
002706 147556 .WORD «147556 
002706 147556 .WORD 147556 
002710 147556 .WORD «147556 
002712 1467556 .WORD 147556 
002714 147556 .WORD 167556 
002716 147556 .WORD 167556 
002720 DATA?: .WORD sSTANDARD PATTERN 7 
002722 133333 [WORD Ht 
0027246 1555 .WORD 155555 
002726 133335 .WORD 133333 
002730 .WORD 155555 
002732 1333533 -WORD 133333 
002734 155555 .WORD 155555 
00273 133333 ;WORD 133333 
002740 155555 .WORD 155555 
002742 133333 .WORD 1 
002744 1555 .WORD 155555 
002746 133333 .WORD 133335 
002750 .WORD 155555 
002752 133333 .WORD 133333 
002754 .WORD 155555 
002756 .WORD 133333 
002760 030221 DATAS: .WORD 030221 STANDARD PATTERN 6 (WORST CASE) 
002762 030221 .WORD 030221 
002764 030221 .WORD 030221 
766 030221 .WORD 030221 
002770 030221 ;WORD 030221 
002772 030221 ;WORD 030221 
002774 030221 .WORD 030221 
002776 030221 .WORD 030221 
005000 030221 ;WORD 030221 
003002 030221 .WORD 030221 
003004 030221 ;WORD 030221 
3006 030221 “WORD 030221 
003010 030221 .WORD 030221 
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MS 
SRP TLTS LSS SITE oF totes ome wee 


wae Se at i e-8 est Tre teow vane 7 


coarse boone 


[re gre se 
yes CEE «Crest test 


oa? 76 
7 900278 oosees ne i a 
ooas7e 415714 @onase (-) Onive $$ 
Oe i a ac e85s 
$0 006 oot wre y oar ree 
$1 90505 . sOimG ZEROS 
Sesnat Sees Ee otaaT 
a 
“ gree PASCIZ 7. ouut onccnan, CAAn LOC. 20 me RESTART PROGRAM, s<CMLSs 
t 
+ Soeese o0e7s7 953510 = _otemnt sTume On The aE veosD 
6? 000608 001226 “e mune OE 
$8 0084 a8 Pr) 0. 
$9 goes 001256 gvecta new VEC ye « 
‘ 
001276 ewe | nau vect 
7% 137 gonses oo. wr tae Cau Cue 
SS Si ae: : 
7 1 001262 001272 MOV SGASE,ORPAOR MEM BASE ADORESS 
75 000042 000805 6s 
FF epcees seS7S7 901190 Ss; TST® sautos {MPOING IN AUTO RODE ? 
78 08089 901008 oe +veS 
$0 o0eese 13737 SSiore 6%; tov Fe OUSAOR $s ivr Gatven 
oosees 015737 901278 Oe0se2 MOY  « SRPVECAPVEC «© SLOAD VECTOR 
006472 005037 001514 CLR STATIN ven SUPPARY TYPEOUT FLAG 
83 000476 001520 ROY SORDERG, RS SSTART OF AREA TO CLEAR 
t e 
$3 Soeses Sennes enness oe SBLKAOR RS +L OOK FOR Bre amen 
86 004519 001574 7s ;6n IF NOT 
$7 008512 012706 901100 MOV: @STACK, SP SETUP THE STACK POINTER 
OP Sossee StBTET Soisee ccases fy 4s naentz.qmmsec 40 ‘Abs TORE Goal Site Chen Oe 
° ' 
90 004530 005037 001540 HOUR ; THE HOUR: 
91 004534 005037 001342 MINUTE ; THE ‘ 
92 004540 005037 001344 ; THE SECOND: 
93 004544 005037 001472 ; INTERV 
004550 013737 001462 001464 OV TIN. owTINeg [INET COPANE TING COOMTER 
004556 005037 001334 THe 6. FLAG 
98 004562 005037 046446 DRIVEOsSFIRST jRESET OFIRST FLAG FOR DRIVE 0 
004566 005037 0467 DRIVEL*OFIRST jRESET SFIRST FLAG FOR DRIVE 
004572 005037 04 . CLR -ORIVEZsSFIRST 4 RESET OFIRST FLAG FOR ORIVE 
004576 005037 047414 CLR  § ORIVES-@FIRST =RESET FIRST FLAG FOR ORIVE 
004602 005037 047656 CLR SFIRST RESET SFIRST FLAG FOR DRIVE 4 
004606 005037 050120 CLR IVES:OFIRST IRESET OFIRST FLAG FOR ORIVE 5 
004612 005037 050362 CLR  DRIVES-SFIRST RESET OFIRST FLAG FOR DRIVE 6 
004616 005037 050624 CLR §- DRIVE7+OFIRST RESET OF IRST FOR ORIVE ? 
103 004622 005037 001424 CLR /MRITE CONDITION 
104 004626 032777 000001 174320 SIT SMO. @SUR iTS EXERCISER MODE ? 
105 004634 001 8EQStsésS IF NO 


Smee Sta 7 PERF EXER MACRO VO4.00 1-0EC-63 10:52:28 PAGE 12-3 
T VALUE FOR SOFTWARE SWITCH REGISTER 


106 004636 005237 001424 INC ROONL Y sLOCK PROGRAM IN ‘READ ONLY’ MODE 
744 004642 6s: 

ttf sSEE IF OPERATOR WANTS HELP TEXT PRINTED 

112, 004642 105737 001150 TSsTs SAUTOB sAUTO MODE ? 

113 004646 001035 BNE 13% ;6R IF YES 

114 004650 005227 177777 INC @-1 IFIRST TIME THRU HERE ? 

i 004654 001052 BNE 138 3:6R IF NO 

117 004656 104401 0643570 9%: TYPE »MSHELP sTYPE ‘TYPE HELP MESSAGE (L) N ? * 
116 004662 104411 ROLIN sREAD THE ENTRY 

119 004664 012600 MOV (SP)+,RO sSAVE ADDRESS OF RESPONSE 

120 004666 005737 001534 TST CFLAG sWAS (tC) TYPED? 

121 004672 001015 BNE 10% If YES 

122 004674 105710 TSTB CRO) WAS RESPONSE A CARRIAGE RETURN ? 
123 004676 001414 BEQ 118 ;8R IF YES (DEFAULT) 

124 004700 105760 000001 TSTB 1(RO) 3WAS IT TERMINATED WITH CARRIAGE RETURN ? 
125 004704 1 BNE 10$ ’ 

126 004706 122710 000131 @' Y¥,CRO) ;WAS IT A ‘Y' RESPONSE ? 

127 004712 001411 BEQ 12$ 3BR 

128 004714 122710 000116 @'N, CRO) ;WAS IT A ‘N’' RESPONSE ? 

129 004720 001410 BEQ 13% 3;68R IF YES 

130 004722 104401 060163 10$: TYPE »BADENT ;TYPE BAD ENTRY MESSAGE 

131 004726 000753 BR 9$ 3TRY AGAIN 

132 004730 104401 057077 118: TYPE »NODFLT sTYPE ‘NO DEFAULT’ 

133 004734 000750 BR 9s ;TRY AGAIN 

134 004736 104401 064500 12s: TYPE »HELPTX ;TYPE HELP TEXT MESSAGE 


135 004742 13$: 


CZRIOBO RPO? PERF EXER MACRO VO4.00 1-DEC 83 10:52:28 PAGE 18 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


IDN BS inlsw 


176377 


030000 
000004 


001234 


040646 


001234 


bie) 
SEQ 0065 


sAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS 
sJUMPERED FOR 22 OR 32 REGISTERS 


SIZE 70: 


18; 


2s: 


3$: 


4$: 


CLR 


RHE XT 


sCLEAR RPBAE OFFSET 


©174000,8CPUOP ;CLEAR CPU TYPE REGISTER 
ERRVEC, -( SP) sSAVE CONTENTS OF ERROR VECTOR 


074 ,RHEXT 
3$ 


sSETUP ‘TRAP’ RETURN ADDRESS 

:GET RPCS1 ADDRESS 

sGET REGISTER OFFSET FOR RH70 

:GET NUMBER OF REGISTERS TO CHECK 

; TRAP IF NOT A VALID RPBAE 

3; TRAP IF NOT A VALID RPCS3 

sLOAD OFFSET FOR RPBAE (22 REGISTER RH) 
;TRAP IF NOT A VALIO REGISTER 

:00NE WITH ALL 32 REGISTERS ? 

3;B8R IF NO 

sLOAD OFFSET FOR RPBAE (32 REGISTER RH) 


sSETUP RETURN ADDRESS 


sGET RPCS1 REGISTER 

;GET RPBAE REGISTER OFFSET 
;B8R IF NONE 

:GET RPBAE REGISTER 


RO,R1 
@A17!A16,(RO) iSET EXTENDED ADDRESS BITS IN RPCS1 


@3,(R1) 

4$ 

(R1) 

CRO), -CSP) 


OtCcAl7IAl6>, (SP )-+ 


eB1T13:8IT 


_—s.m BITS SET IN RPBAE ? 

3 

sCLEAR EXTENDED ADDRESS BITS IN RPBAE 

sSAVE RPCS1 REG CONTENTS 

sARE THE EXTEND BITS CLEAR IN RPCSi ? 


sBR IF NO 
le, $CPUOP sSET THE 11/70 CPU TYPE CODE 


(SP)+ ,ERRVEC sRESTORE CONTENTS OF ERROR VECTOR 


, 
; 


v 


a 


ut fF 


en bad 
g 
- 
eo 


mee 
K~Ooe@-. 
5 


’ PERF EXER 


04, 
SOFTWARE SWITCH RE 


003406 
013737 
013737 


177777 


-_- 
Ur 


oO 1 cee 83S 19:52:28 PAGE 14 


ISte 


001330 
001654 
001656 
001660 
160000 


001660 
001660 


001660 
001660 


001466 
060646 


sROUTINE TO DETERMINE BUFFER MAX WORD COUNT 
SI7MEM: INC 
BNE 


18: 


2s: 


38: 


4$: 


JSR 


o-1 sFIRST TIME THRU HERE ? 

1s :6R IF NO 

PC, $SIZE sSEE HOW MUCH MEMORY ON SYSTEM 
SLSTAD,LSTAD SAVE THE LAST ADDRESS 

01,BUF T8L }LOAD NUMBER OF BUFFERS 

@ENDPGM, BUF TBL +2 ;STARTING ADORESS OF BUFFER 
LSTAD,BUFTBL-4 ;LAST ADDR TO BUFFER ALLOCATION TABLE 
STAD, °@160000 ,OVER 28K ? 


sNO 
#160000 , BUF TBL +4 
®@ENDPGM , BUF TBL «4 

sCLEAR THE ‘Cc’ 8 


BUF TBL +4 iCONVERT TO WORD Ttount 
— sRUNNING IN AUTO MODE ? 


$ BR IF 
#1536. .BUF TBL +4 iSUBTRACT *xXDP’ LOADER SIZE (1.5K WORDS) 
eae ae sIS MAX WORD COUNT TOO LARGE ? 


4 36R IF NO 
BUF TBL +4,WRDOCNT ;USE MAX AVAIL MEMORY AS MAX WRD CNT 
WRDCNT ,PARLST+2 ; VALUE FOR THE PARAMETER TABLE 


sXXDP MAX MEMORY 26K 
5 a) ge * saegatane: SPACE 


SEG 9064 


Dry 


CZRIOBO RPO? PERF EXER MACRO V04.00 1-DEC 65 10:57:28 PAGE 15 SEQ 0067 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
i sSEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 
$ 005246 005737 040100 LXPAR; TST PURFLG sRE TURNING FROM POWER FAIL ? 
005252 001154 TvEC sBRANCH IF YES 
10 005260 105737 001150 TST6 sAUTOB sRUNNING IN AUTO MODE ? 
14 005264 0014046 Q is IF 
005266 032777 000004 1753660 BIT 2Sw02 ,aSuR sO00ES USER WANT MANUAL INTERVENTION ? 
s 005274 001467 BEG 6s : 
i86 005276 005037 001534 is: cr AG 4 
19 005302 104401 060 TYPE oMESFE sTYPE ‘00 vou want TO WRITE ANYWHERE ON MEDIA (L) N ?° 
005 104411 ROL IN sREAD THE E 
21 005310 0 “Ov (SP )+ RO sSAVE ADDRES RE SPONSE 
2 0055 005737 001534 TsT CFLAG sWAS IT CONTROL C ? 
23 005316 0015535 LKPAR on If YES 
00S 105710 TsT8 CRO) WAS RESPONSE A CARRIAGE RETURN ? 
25 005322 001454 BEQ 8s 18R If vE 
005 105760 000001 TsT8 1(RO) sWAS IT TERMINATED WITH CARRIAGE RETURN ? 
27 005330 001006 4 ’ 
26 005332 122710 000151 @*v,(RO) sWAS IT A ‘Y¥’ RESPONSE ? 
29 005336 001406 BEQ s8R 
00S 122710 000116 @'N, CRO) sWAS IT A ‘N* RESPONSE ? 
31 005344 001445 3EQ 6s sBR 
00S 104401 060165 2s: TYPE »BADENT sTYPE BAD ENTRY MESSAGE 
33 005352 0007355 LKPAR sTRY AGAIN 
00S 005737 001424 38: TST ROONL Y sPROGRAM RUNNING IN READ ONLY MODE ? 
35 005360 001032 7$ 18R If YES 
37 005362 005037 001534 4%: CLR CFLAG 4 CONTROL C FLAG 
= 005366 104401 TYPE . T : TYPE * ¢$ CUSTOMER DATA WILL BE OVERWRITTEN ! 
40 ; CONTINUE (L.) ? 
41 005372 104411 ROL IN sREAD THE ENTRY 
42 005374 0 MOV (SP)+,RO sSAVE ADDRESS OF RESPONSE 
43 005376 005737 0013534 TST LAG sWAS IT CONTROL C ? 
005402 00152 LKPAR s6R IF YES 
45 005404 105710 TSTs CRO) sWAS RESPONSE A CARRIAGE RETURN ? 
005406 001414 Q 6% sBR IF YES 
47 005410 105760 000001 TSsT6 iCRO) sWAS IT TERMINATED WITH CARRIAGE RETURN ? 
46 005414 001006 Ss s6R IF NO 
49 005416 poo Bh 000131 ae @¥,CRO) sWAS IT A ‘Y¥* RESPONSE ? 
3 
51 005424 122710 000116 @'N, CRO) sWAS IT A ‘N* RESPONSE ? 
0054 001411 BEQ 8s BR IF YE 
53 005432 1 060163 S$: TYPE -BADENT i TYPE BAD ENTRY MESSAGE 
S54 005436 000751 BR as sTRY AGAIN 
005440 104401 057077 6%: TYPE eNOOFLT sTYPE ‘NO DEFAULT’ 
005444 000746 BR Bs sTRY AGAIN 
57 005446 005237 001422 78: INC TSTANY sENABLE TEST ANYWHERE OPTION 
58 005452 000402 9% 
59 005454 104401 060531 S$: TYPE oFEONLY sTYPE ‘@ TESTING WILL OCCUR ON FE CYLINDER ONLY ¢' 
61 005460 005737 001424 9%: TsT ROONL Y sIS PROGRAM LOCKED IN “READ ONLY” MODE ? 
005464 001402 Q 138 BR IF NO 
635 005466 104401 060570 TYPE »MREAD sTYPE ‘* PROGRAM IS LOCKED IN ‘READ ONLY’ MODE «° 
86 005472 005037 001534 138: CLR CFLAG sCLEAR CONTROL C FLAG 
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GET VALUE FOR SOFTWARE 


SWITCH REGISTER 
001150 
060 746 


1Ss'6 
BNE 


oe PARENT 
WROCNT , 66 

SETVEC 

06, WROCNT 


_— A CARRIAGE RETURN (DEFAULT ‘WN’ )? 
;MAS IT TERMINATED WITH CARRIAGE RETURN ? 


3BR NO 
sWAS IT A ‘¥* RESPONSE ? 


sPARAMETER TABLE ADDRESS 
3GET THE PARAMETER ENTRY 
sIS THE ‘WROCNT’ VALUE OK ? 


Is 
*WROCNT’ TO THE MINIMUM VALUE 


SEG 0068 
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ee 
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v06.00 1-DEC-6S 10:57:78 Pa 16 


sDISPLAY DRIVE STATUS AMD SET UP THE OTHER SYSTEM DEVICES THAT 
a1 PROGRAM WILL USE. PROGRAM RETURN MERE ON POWER FAIL 


mecrsten 
024* 74 SETvEC: oR PC. CKCLK 
000852 °C AP INIT 
177777 000602 @-1, SAVEFG 
177777 Inc e-1 
040100 1ST arc 
ee 1s 
000004 173310 git esuo2. asim 
18: *: RS 
057113 YPE ,ORSTAT 
001208 2s: TYPE 
OV aa, -(5P) 
TYPOS 
BYTE 2 
‘eYTre 0 
TYE BLS 
040534 TST® ORvVSTACRE) 
ent $$ 
BNE 6s 
000544 TSTB © ORVT YPC Ra) 
BEQ 38 
BPL aS 
056760 TYPE NOTRE 
pr ius 
056775 38: TYPE ,NOTPRS 
BR iis 
056667 4: TYPE =, UNTOFF 
eR és 
057031 St: TYPE NOTSAF 
BR ry) 
001430 6%: TST XxDP 
BEQ 7$ 
001430 CHPR 20 s«XXDP, RG 
BNE 7 
057061 TYPE  ,LODEV 
eR iis 
056700 78: TYPE § ,UNTON 
056610 8s; TYPE BLNKS2 
CLR RO 
MOVE  ORVTYPC(R4). RO 
057155 006026 MOV @$RPO7, 108 
cre #5,R0 


9%: 
108%; 


RE TURNING — POWER FAIL 7? 
sQRANCH IF YE 
sTYPEQUT THE carve STATUS TABLE ? 
s0R IF NOT 
sORIVE TABLE POINTER 
sTYPE ‘ORIVE STATUS’ 
cr 
ORIVE NUMBER 
3sGO TYPE--OCTAL ASCII 
ss TYPE 2 OIGITCS) 
Py yoy -y LEADING ZEROS 
4 GLANS 
i CHECK ORIVE’'S STATUS 
s6R IF UNSAFE 
:eR IF OWINE 


sSEE IF OFFLINE OR NONEXISTENT 
sR IF ~ ee 


BR OFFL 
sORIVE NOT AN RPOT 
sCHECK NEX 


T ORIVE 
sORIVE NOT PRESENT 
CHECK NEXT ORIVE 
sORIVE 


OFFLINE 
sPRINT ORIVE TYPE 
sORIVE UNSAFE 
sPRINT ORIVE TYPE 
sLOADED FROM THIS DEVICE 7? 


s6R IF NO 
sLOADED FROM THIS ORIVE ? 


s0R IF 
aTYPE ‘LOAD DEVICE’ 


sORIVE ONLINE 
sTYPE 2 GLANKS 


sGET ORIVE TYPE 

sASSUME ADDRESS OF ~~ MESSAGE 
11S DEVICE AN RPO7 

sTYPE IT IF YES 

sASSUME ADDRESS OF RPO7+ MESSAGE 


sTYPE THE ORIVE TYPE MESSAGE 
sMESSAGE ADORESS HERE 
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JOBO RPO7 PERF EXER MACRO VO4.00 1-DEC-65 10:32:28 PAGE 22 
IN PROGRAM 


sPROCESS THE COMMAND TERMINATION 


PROCES: MOVE CRO), ORVNO sORIVE NUMBER FOR ANY ERROR MESSAGES 


TST STATUSCRO) sSEE IF DRIVER SIGNALED AN 

emI ERPROC :6R IF ERROR 

BIT @B1T15, #RPCS1(RO) SEE IF ‘SC’ SET 

BEQ 1s sB8R T SET 

34 81114, #RPCSICRO) Sa IF ‘TRE’ SET 

BIT @81T14, $RPDSCRO) sSEE IF ‘ERR’ SET 

BNE ERPROC s6R IF SET 
sNO ERRORS DETECTED IN REGISTERS, 00 SOME CHECKING ANYWAY 
18: JSR PC, CKERR CHECK ERROR BITS 

JSR PC .CKBUS sCHECK BUS ADDRESS € WORD COUNT 

BIT @SW01,@SWR s INHIBIT DATA COMPARE (SWO1=1) ? 

BNE 3$ sBR YES 

TsT CMPTIM iIS COMPARE DATA ALWAYS ON ? 

BEG es :6R IF YES 

4 a a tat :T IME TO COMPARE DATA ? 

MOV CMPTIM, -CSP) s+GET CURRENT INTERVAL TIME AND 

ADD #1,(SP) sADD ONE MINUTE 

CMP CMPTIM+2,(SP)-+ ;STILL COMPARING DATA ? 

BLT 2s sBR IF YES 

CLR CMPTIM+2 iCLEAR INTERVAL TIMER FOR NEXT COMPARE 

2s: JSR PC,CMPAR sNO ‘OCK’ ERROR, BUT COMPARE DATA ANYWAY 
3$: RTS PC sRETURN 


s;COMMAND TERMINATED WITH AN ERROR - PROCESS THE ERROR 


ERPROC: BIT @BITO7, $TATUSCRO) sDONE BIT SET ? 
BEQ ERPRC1 ;BR IF NO, ORDER DIDN'T COMPLETE NORMALLY 
;PROCESS ERROR WITH ‘DONE’ BIT SET 


sPROCESS ORDER COMPLETION WITH ‘ERROR’ &€ ‘DONE’ NOT SET 


ERPRC1: 


BIT @BIT12, $TATUSCRO) ;SEE IF DRIVE WAS UNSAFE 
PUNSAF ES 


BNE 3 Y 

BIT @8IT11, $TATUSCRO) sPARITY ERROR OCCURRED 
BNE UCPAR 3B8R IF IT DID 

BIT @B1T10, $TATUSCRO) sFATAL PARITY ERROR? 
BNE FALPAR 38R IF THERE IS ONE 

BIT #BITO9, $TATUSC RO) 3 TIMEOUT? 

BNE SWTIM 3;8R IF YES 

BIT @BIT14!BITO1, sTATUSCROD sORIVE WENT OFFLINE ? 
BNE OFLIN 38R IF IT DIO 

BIT p+ US $TATUSCRO) sPORT REQUEST TIME OUT ? 
BNE PRTIM ;68R IF IT DIO 

RTS PC sERROR. RETURN 


CZRIOBO 


seg VBbiatse 
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022274 


171110 


sORIVE 15 PERSISTENTLY UNSAFE 


PUNSAF: JSR PC,LINE1L 
DISPLyY ,EMI2 
JSR PCL INE? 


sPRINT LINE 1 OF ERROR MESSAGE 
sPERSISTENT DEVICE UNSAFE MESSAGE 
sPRINT LINE 2 OF ERROR MESSAGE 
sPRINT LINE 3 OF ERROR MESSAGE 
sPRINT LINE 4 OF THE ERROR MESSAGE 
s INCREMENT TOTAL ERROR COUNT 
sPRINT LINE 7 OF ERROR MESSAGE 
sDROP THE DRIVE 


sUNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 


UCPAR: TYPE . SCRLF 
TYPE . $CRLF 
TYPE eEM10 
BR FALPR1 


;'UNCORRECTABLE PARITY ERROR’ MESSAGE 
iF INISH PROCESSING THE ERROR 


3‘FATAL’ MASSBUS PARITY ERROR OCCURRED 


FALPAR: TYPE » $CRLF 


FALPRL: ioe »“SGON 


YPE 
MOV ORVNO, -( SP) 
TYPOS 
.BYTE 2 
.BYTE 0 
JSR PC, INCTOT 
BIT @SW15,aSWR 
BEQ 1s 
HALT 
1%: RTS PC 


sSOFTWARE TIMEOUT OCCURRED 


SWTIM: JSR PC,LINEL 
OISPLY ,EM13 


é 
; FATAL PARITY ERROR’ MESSAGE 


3 TYPE ON’ 

sTYPE ‘ORIVE’ 

3:SAVE ORVNO FOR TYPEOUT 
3:TYPE ORIVE NUMBER 

33:GO TYPE--OCTAL ASCII 
s3TYPE 2 OIGITC(S) 
3;SUPPRESS LEADING ZEROS 
s INCREMENT TOTAL ERROR COUNT 
sHALT ON ERROR ? 

3;6R IF NOT 

sERROR HALT 


sPRINT LINE 1 OF ERROR MESSAGE 
sPRINT THE TIME OUT MESSAGE 

sPRINT LINE 2 OF ERROR MESSAGE 
sPRINT LINE 3 OF ERROR MESSAGE 


sPRINT LINE 7 OF ERROR MESSAGE 
sRETURN 


SEG 0078 


Co 
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010110 
010114 


013474 
040000 
011242 
040000 
013146 
000400 
011630 
000020 
012022 
000200 
012212 


000016 


sORIVE WENT OF FL INE 


OFLIN: 


JSR 
ol 

JSR 
JSR 
JSR 
JSR 
JSR 
JP 


Y 


sPORT REQUEST TIMEOUT ERROR 


PRTIM: 


JSR 


OISPLY 


JSR 


RTS 


sPRINT LINE 1 OF THE ERROR MESSAGE 
sPRINT OFFLINE MESSAGE 

PRINT LINE 2 OF THE ERROR MESSAGE 
sPRINT LINE 5 OF THE ERROR MESSAGE 


sPRINT LINE 4 OF THE ERROR MESSAGE 
s INCREMENT TOTAL ERROR COUNT 
sPRINT LINE 7 OF THE ERROR MESSAGE 
sDROP THE DRIVE 


sTYPE LINE 1 OF THE ERROR MESSAGE 
sPRINT PORT TIME OUT MESSAGE 


sTYPE LINE 4 OF THE ERROR MESSAGE 
s INCREMENT TOTAL ERROR COUNT 
sTYPE LINE 7 OF THE ERROR MESSAGE 
sRE TURN 


sPROCESS ORDER COMPLETION WITH ‘ERROR’ € ‘DONE’ BIT SET 


DONE : 
1s: 


2s: 


S$: 


6%: 


78: 


@BITOS4!BITOS, $TATUSCRO) ; UNSAFE OCCURRED 
es 36R IF NOT 


UNSAF sREPORT UNSAFE 
@BIT14, $SRPERICRO) 3SEE IF ‘UNS’ SET 
33% ;6R IF NO 

sREPORT UNSAFE 
@BIT1,$RPDS(RO) ;SEE IF ‘EWN’ SET 
4s 3;6R IF NOT 
EWNERR sREPORT EARLY WARNING 
@BIT14, $RPCS2(RO) 3IS ‘WCE’ SET ? 
S$ sBRANCH IF NOT SET 
WCKER sWRITE CHECK ERROR 
@BIT14, $RPCS1(RO) 3sCHECK ‘ TRE‘ 
6$ ry F SET 
TRFER sPROCESS ‘TRE’ 
@BITOS, $RPERI(RO) 3‘HCRC’ SET? 
7% 36R IF NOT 
HCRCER sPROCESS ‘HCRC’ 


@BITO4, $RPER1(RO) ‘FMT’ SET? 
8s BR 


IF NOT SET 


CKFMT sCHECK FORMAT ERROR 
@BITO7, $RPERI(RO) s'HCE' SET? 
98 s6R IF NOT SET 

CKHCE sCHECK ‘HCE’ ERROR 


EQ 0079 


D/ 
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000202 


000202 


000230 
000230 


9; 


10$: 


118: 


12%: 


138: 


14%: 


15%: 


168: 


17%: 


188: 
19%: 


RTS 


—— SRPERICRO) 3°OPI’ SET? 
10 sOR IF NOT SET 
OPTER REPORT ‘OPI: 
OBITS, SRPERI(CRO) 3‘PAR* SET? 
118 :8R IF NOT SET 
PARER sREPORT ‘PAR’ 
BITS, SRPERI(RO) s'WOF’ SET? 
12$ :8R IF NOT SET 
ACFER REPORT ‘WCF: 
e@IT10, SRPERICROD ‘IME’ SET? 
sR IF NOT Set 
TAcER REPORT ‘ IAE® 
eOIT11, $RPERICRO) *MLE’ SET? 
14 ;@R IF NOT SET 
LEER REPORT ‘WE’ 
OBITS, $RPERI(RO) ‘AOE’ SET? 
158 :8R IF NOT SET 
@B1T10, $RPDSCRO) UBT’ SET? 
15$ :8R IF NOT SET 
PC AOE’ & ‘LOT’ SET, EXIT 
@BIT12, #RPERIRO) SEE IF ‘DTE’ SET 
16$ 18R IF NOT 
DTEER REPORT ‘DTE’ ERROR 
SRPER1(RO) SEE IF ‘DCK’ SET 
178 i8R IF NOT 
OCKER PROCESS ' DCK’ 
egIT14, #RPERS(RO) s'SKI’ SET 


BRANCH IF SKI, ee SET 
eerTis, SRPERS(RO) BAD SPOT 
sBRANCH IF 


so 
ORVER ;REPORT ERROR 
SKIER sREPORT SKI ERROR 
PC sEXIT FROM ERROR ANALYSIS 


ROUT. 


5EQ 0080 


EF / 
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MAIN PROGRAM 

} sPROCESS DATA ('DCK’) CHECK ERROR 

£ 010546 004737 016420 DCKER: JSR PC. SPOTCK + IF ERROR AT A BAD SPOT 

4 010552 000207 RTS sITt IS, DON'T REPORT IT 

5 010554 032760 000100 000202 BIT €CH, SRPERI( RO) vECH ERROR SET 7? 

6 010562 001411 BEQ $ NO 

7? 010564 022760 010040 000252 chp a SRPECICRO) sOTHERWISE RPEC1-10040 

6 010572 0010246 BNE sREPORT ECC LOGICAL FAILURE 

9 010574 004737 022274 JSR BC .LINE! IFIRST LINE OF ERROR MESSAGE 
10 010600 104414 053536 OISPLY ,EMS2 sECH ERROR - ECC UNCORRECTABLE 
il 010604 000451 BR 1s 
15 010606 026027 000232 010040 i$: cmp $RPECI(CRO), 010040 sIS POSITION COUNT OVER MAXIMUM ? 
14 010614 101015 BHI ’ 
15 010616 005760 000232 TsT SRPECICRO) sPOSITION COUNT 0 ? 

16 010622 001410 BEQ 2s s6R IF 
17 010624 005760 000234 TsT SRPEC2( RO) pe IN PATTERN REGISTER ? 

16 010630 001035 BNE 6$ s 

19 010632 004737 022274 JSR PC,LINE1 i TYPE FIRST LINE OF ERROR MESSAGE 
20 010636 104414 055560 DISPLY ,&M47 sTYPE ‘ECC LOGIC ERROR’ 
21 010642 0004604 BR $ 
22 010644 004737 022274 2s: JSR PC,LINEL sTYPE FIRST LINE OF ERROR MESSAGE 
23 010650 104414 053220 DISPLY ,EMaS sTYPE ‘ECC LOGIC 
24 010654 0047357 022342 38: JSR PC.LINE2 sTYPE LINE 2 OF ERROR MESSAGE 
25 010660 004737 026202 ‘ JSR PC. INCTOT s INCREMENT TOTAL ERROR COUNT 
26 010664 012737 900003 001524 MOV @3,RETRY sRETRY COUNT 
27 010672 004737 017120 JSR PC, SRETRY sRETRY THE 
28 010676 000405 BR As ORINT WAS NOT SUCCESSFUL 
29 010700 004737 024076 JSR PC .LINE6C PRINT ‘CORRECTED ON N RETRY(S)’ 
H+ 010704 000402 BR Sé iF INISH THE ERROR REPORT 
32 010706 004737 024104 4%: JSR PC ,,.LINE6D sPRINT ‘UNCORRECTABLE AFTER N RETRY(S)’ 
33 010712 004737 024136 S$: PC,LINE7 sTYPE LINE 7 OF ERROR MESSAGE 
o 010716 000207 RTS PC sRE TURN 
4 sTHE VALUES IN THE ECC REGISTERS ARE CORRECT, REPORT ‘DCK’ ERROR 
358 010720 004737 022274 6$: JSR PC.LINEL sPRINT LINE 1 OF ERROR MESSAGE 
+4 pty di of 104414 051640 - DISPLY ,EM21 sDATA CHECK ERROR 

8 
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2 010730 004787 022342 DCKERI: JSh PC.LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
#010734 004737 022776 JSR PC.LINES sPRINT LINE 3 OF ERROR MESSAGE 
4 010740 006737 0O2 JSR PC.LINES sPRINT LINE 4 OF ERROR 
S$ 010744 0046737 016436 JSR PC.PRTBAD sSEE IF BAD SECTOR TO er PRINTED 
6 010750 0127387 110100 001322 "Ov @BIT1S!GIT1I2Z1GITOS,MASK ;LOAD ERROR MASK 
7 010756 032760 000202 gIT 6817112, SAPERI(RO) 1S IT OTE’ ? 
6 010764 001012 BNE 2s BR S$ 
010 032760 000100 000202 BIT O1TOS, SRPERICRO) ww It ‘ecw ? 
10 010774 001405 BEQ 
11 010776 004737 011202 JSR PC.138 eroane BAD DATA 
12 011002 3 BR 28 
13 011004 006737 024056 18: JSR PC,.LINEG ;PRINT “SECTOR IS ECC CORRECTABLE’ 
14 011010 BR 108 iF INISH THE ERROR REPORT 
15 011012 012737 000012 001326 2%: MOV #10. RETRY ;RETRY COUNT 
20 011020 006737 38: JSR - PC,GODRIV 
21 011024 005760 000016 4s: TST sTATUSCRO) sTEST FOR DONE 
22 011030 001775 BEQ as 10n NOT DONE 
23 011032 100057 BPL 128 8R IF NOT ERROR 
24 O11 032760 000200 000016 git eBIT7, sTATUS(RO). oat iy IF ORDER TERMINIATED NORMALLY 
25 011042 001006 BNE 
26 011044 004737 026202 JSR PC, INCTOT ONCHEMENT TOTAL ERROR 
27 011050 108414 055650 DISPLY ,LINeM * DIFFERENT DURING RETRY’ 
28 011054 000137 007636 se ERPRC1 sSEE WHICH 
30 011 033760 001322 000202 $$: eIT MASK, SRPERI(RO) ;LOOK AT CURRENT ERROR 
31 011066 001412 BEQ 4 6R IF O ERROR 
32 011070 032760 010100 000202 BIT @BITI2Z!GITG, SRPERICRO) ECM OR ‘OTE’ STILL SET ? 
33 011076 001421 BEQ 98 sOR IF NEITHER SET 
011100 105237 001325 INCB = RETRY +1 3 INCREMENT 
35 011104 123737 001324 001325 CHPB 40s«RRETRY,RETRY-1 00NE ? 
011112 001342 BNE 38 :0R IF NOT 
47 011114 004737 024356 78: JSR PC.LINES sPRINT LINE 6 OF ERROR ME 
011120 004737 026106 8s: JSR * INCHRD sINCREMENT ‘HARD’ ERROR COUNT 
49 011124 004737 JSR PC. INCTOT sINCREMENT TOTAL ERROR COUNT 
SO 011130 004737 024136 JSR PC. LINE? ;PRINT LINE 7 OF ERROR MESSAGE 
51 011134 004737 016436 JSR *PRTBAD sPRINT THE BAD SECTOR 
52 011140 000436 BR 5 :CLEAN UP AND RETURN 
54 011142 006737 98: JSR PC.LINEG sPRINT ‘SECTOR IS ECC CORRECTABLE: 
5S 011146 006737 024014 JSR PC.LINESS rR LINE 58 OF THE ERROR MESSAGE 
11152 004737 10s: JSR PC. INCSOF T ‘SOFT’ ERROR COUNT 
57 011156 004737 015576 JSR PC.ECC {CORRECT Tre ERROR USING ECC AND CHECK IT 
58 011162 BR 13% sCOMPARE THE BUFFER 
60 011164 004737 024104 11%: JSR PC,.LINE6D sPRINT ‘UNCORRECTABLE AFTER N RETRY(S)* 
61 011170 000 BR s INCREMENT ERROR COUNT 
63 011172 004737 024070 12%: JSR PC,LINEGA sPRINT ‘SECTOR READ CORRECTLY AFTER N RETRY(S)’ 
64 011176 004737 026062 JSR INC T ‘SOFT’ ERROR COUNT 
01 012737 000001 001352 13%: MOV @1.FRSTER sSET PROCESSING ‘OCKER: INDICATOR 
66 011210 004737 014200 JSR ‘CMP: sCOMPARE THE 
67 011214 105737 001353 TSTB 43s FRSTER+3 sERROR IN COMPARE ? 
68 011220 1 BMI 158 ;BRANCH IF ERROR 
69 011222 004737 JSR PC, INCTOT sINCREMENT TOTAL ERROR COUNT 
70 011226 104414 056117 DISPLY ,LINSG s'DATA COMPARE OK’ MESSAGE 


2S ae 
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741 011282 006737 020136 146; oR CIM? 
“2 011236 000280 ist; 
“t 011280 000207 ais) 


G/ 


sPRint LIME 7 OF ERROR FESSACE 
st TURN 
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001322 
001324 


000176 


;REPORT ‘PAR’ ERROR 

PARER: JSR PC.LINEL sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY REPORT ‘PAR’ 
JSR PC .LINE2 sPRINT LINE 2 OF 
JSR PC. LINESE SPRINT LINE 3E OF ERROR MESSAGE 
JSR “LINES sPRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT : TAL 
MOV @681T05 , MASK , 
MOV 03, RETRY sRETRY LIMIT 
JSR PC, SRETRY TRY OROER 
BR 2 TRY UNSUCESSFUL 
JSR PC, LINE6C SPRINT ‘CORRECTED ON N RETRY(S): 

1s: usr LINE? sPRINT LINE 7 OF ERROR MESSAGE 

; 

28: JSR PC ,LINEGD ;PRINT “UNCORRECTABLE AFTER N RETRY(S)’ 
BR iFINISH ERROR MESSAGE 

;REPORT ‘IAE’ ERROR 

IAEER: PC,LINE1 sPRINT tine 1 OF ERROR MESSAGE 
DISPLY ,EM3S * TAE’ 
JSR PC LINE? ;PRINT "Une 2 OF ERROR MESSAGE 
JSR PC. LINESF ;PRINT LINE 3F OF ERROR MESSAGE 
JSR PC, INCTOT SINCREMENT TOTAL ERROR COUNT 
JSR PC.LINE7 {PRINT LINE 7 OF ERROR MESSAGE 
RTS PC sRET 

;REPORT ‘WLE’ ERROR 

WLEER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 

ISPLY ,EM36 ;REPORT 'WLE’ 
SR PC,LINE2 : PRINT LINE 2 OF ERROR MESSAGE 

JSR PC; INCTOT ;INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE7 ;PRINT LINE 7 OF ERROR MESSAGE 
RTS ;RETURN 

;REPORT FORMAT ERROR 

FMTER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
OISPLY , sFORMAT ERROR 
JSR PC ,LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 
JSR PC; LINES sPRINT LINE 3 OF ERROR MESSAGE 
JSR PC, LINES PRINT LINE 4 OF ERROR MESSAGE 
BIT eeiT14, $RPCS2(RO) ;'WCE’ ERROR ALSO ? 
BEQ ;8R IF NOT 
JSR be, LINES ;DISPLAY WORDS WHICH CAUSED ‘WCE’ 

1s: JSR PC; LINESA ;PRINT LINE SA OF ERROR MESSAGE 
JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
= Sealed ;PRINT LINE 7 OF ERROR MESSAGE 
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013070 
013074 
013100 
013104 
013110 
013114 
013122 
013124 
0131350 
013134 
013140 
013144 


022274 
052177 


000176 


000176 
001324 


sREPORT HEADER COMPARE ERROR 


MCEER: JSR PC,.LINEL sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY , 7 sHEADER COMPARE ERROR 
JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINES sPRINT LINE 3 OF ERROR MESSAGE 
JSR PC, LINES sPRINT LINE 4 OF ERROR MESSAGE 
BIT @BIT14,$RPCS2(RO) ;'WCE’ ERROR ALSO ? 
BEG is s6R IF NOT 
JSR PC,LINES sDISPLAY WORDS WHICH CAUSED ‘WCE’ 

is: JSR PC,LINESA sPRINT LINE SA OF ERROR MESSAGE 
JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE? sPRINT LINE 7 OF ERROR MESSAGE 
RTS PC sRETURN 

sPROCESS CONTROL/INTERFACE TRANSFER ERROR 

TRFER: JSR PC,.LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM40 sRHXX OR UNIBUS TRANSFER ERROR 
JSR PC.LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC,.LINES sPRINT LINE 3 OF ERROR MESSAGE 
JSR PC,LINES sPRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
BIT @B1T15!BIT13!8IT9!B1T8, $RPCS2(RO) s‘OLT’,’UPE','MxXF’, ° 
BEQ 2s BR IF NONE SET 
MOV @3,RETRY SRETRY LIMIT 
CLR MASK sCLEAR ERROR MASK 
JSR + SRETRY sRETRY THE OPERATION 
BR sRETURN HERE IF RETRY UNSUCESSFUL 
JSR be, LINE6C :PRINT ‘CORRECTED ON N RETRY(S)’ 
BR 2s sFINISH THE ERROR REPORT 

18: JSR PC,.LINE6D sPRINT ‘UNCORRECTABLE AFTER N RETRY(S)’ 

2s: JSR PC.LINE7 sPRINT LINE 7 OF ERROR MESSAGE 
RTS PC 

sPROCESS ‘SKI’ ERRORS 

SKIER: JSR PC,LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EMSO 3‘SKI‘ ERROR 
JSR PC LINE? sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC ..LINE38 sPRINT LINE 38 OF ERROR MESSAGE 
JSR » INCTOT sINCREMENT TOTAL ERROR COUNT 
JSR PC. INCSKI sINCREMENT ‘SKI’ OR ‘OCYL’ ERROR COUNT 
JSR PC,.LINE7A sPRINT LINE 7A OF ERROR MESSAGE 


5EG 0091 
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10 


013572 


001324 
001322 


001322 
001324 


000230 


000230 


001322 
001324 
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sREPORT WRITE “LOCK FAILURE (‘WCF’) 


WCFER: JSR PC ,LINEL sPRINT on 1 OF ERROR MESSAGE 
DISPLY ,EM34 sREPORT WRITE CLOCK FAILURE 
JSR PC .LINE? sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINESA sPRINT LINE 3A OF ERROR MESSAGE 
JSR »L INES sPRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
JSR ~PRTBAD sSEE IF BAD SECTOR TO BE PRINTED 
MOV @3,RETRY sRETRY COUNT 
MOV *BITOS .MASK sERROR MASK 
JSR PC, SRETRY sRETRY THE ORDER 
BR 2s sRETURN HERE IF RETRY UNSUCESSFUL 
JSR PC .LINE6C sPRINT ‘CORRECTED ON N RETRY(S)’ 
18: Fn ee sPRINT LINE 7 OF ERROR MESSAGE 
2s: = oe sPRINT ‘UNCORRECTABLE AFTER N RETRY(S)’ 
sPROCESS ORIVE UNSAFE ERROR 
UNSAF: JSR PC,LINEL sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY , sREPORT DRIVE UNSAFE 
JSR PC,.LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
JSR »LINES sPRINT LINE 3 OF ERROR MESSAGE 
JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
MOV @B8IT14 ,MASK sRETRY MASK 
MOV @3,RETRY sRETRY COUNT 
JSR PC, SRETRY sRETRY THE ORDER 
BR sRETRY WAS UNSUCESSFUL 
JSR PC ,LINE6C sPRINT ‘CORRECTED ON N RETRY(S)’ 
BR sCONTINUE WITH ERROR RE T 
18: JSR PC ,.LINE6D sPRINT ‘UNCORRECTABLE AFTER N RETRY(S)’ 
JMP sD0ROP UNSAFE ORIVE 
2s: JSR PC,LINE7 sPRINT LINE 7 OF ERROR MESSAGE 
RTS ;RETURN 
sREPORT EARLY WARNING ERROR 
EWNERR; = PC,LINE1 3SKIP LINES 
BIT @BIT1, $RPER3SC(RO) 3‘TPE' SET? 
BEQ 1% 36R IF NO 
DISPLY ,EM70 sPRINT TEMPERATURE WARNING ERROR 
BR 33 s TYPE REMAINING ERROR MESSAGE 
1%: BIT @BIT2, $SRPER3SCRO) 3'AIR' SET? 
BEQ 2s 3:6R IF NO 
OISPLY awe 3‘AIR SYSTEM WARNING ERROR’ 
2s: DISPLY ,EM72 s'EARLY WARNING ERROR,AIR TPE NOT SET: 
3%: JSR PC,LINE2S sERROR MESSAGE 
JSR »LINES sPRINT T 
JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
MOV »MASK sSET UP ERROR MASK 
MOV @3,RETRY sRETRY COUNT 
JSR PC, SRETRY sRETRY THE ORDER 
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62 013612 


000403 
oodie! 


00020 
004737 
000137 


4%: 


ae 
PC.LINEOC 
Pc 


PC, LINE6D 
DROP 


D& 


sRETRY UNSUCESSFUL RETURN 
sPRINT ‘CORRECTED ON N RETRI(S): 
RE TURN 


a 
sPRINT ‘UNCORRECTABLE AFTER N RETRY(S)* 
sDROP ORIVE 


5EG 009% 


ee + ee le 


ES 
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MAIN 


OV aman 


322 
13 013624 
14 0136350 
1S 013632 
16 
17 
186 0 
19 


Nes 
° 


23 


SIFAESKESSSVARS 
° 


41 
42 
43 


) 


001203 
001374 
000770 
177777 
001460 


001352 
001364 


sREPORT AN ‘UNKNOWN’ DATA PATTERN 
3 
sR1 + POINTER FIRST WORD OF DATA BUFFER 


NOMTCH: TST 
BNE 
18%: TsT8 


38: 
4$: TsTt 


S$: 


CFLAG 


@-1,FRSTER 
MT LIMIT 


mn C — 


IFIRST ERROR IN THE SECTOR ? 

:6R IF NOT OR IF PROCESSING. *OCKER’ 
sTYPE LINE 1 OF ERROR MESSAGE 
s'CAN’T MATCH DATA WITH PATTERN’ 


sCONTINUE PROCESSING ERROR 
’ Heyy MATCH DATA WITH PATTERN’ 
iHEADER FOR DATA PRINTOUT 
+WAS (tC) TYPED? 
s6R IF YES 
sADORESS OF WORD POSITION 
WORD NUMBER 


NO 
Sy 4 y POINTER - 4 MATCHING WORDS 
EAR ‘WORDS TO COMPARE’ COUNT IN R2 
iSET ERROR FOUND INDICATOR 
5 = COMPARE ERROR TYPEOUT LIMIT 
: 


SEQ 0094 


a a ee ee ee ee ee 


F8 


CZ7RJOBO RPOT PERF EXER MACRO V04.00 1-DEC 63 10:52:28 PAGE 35 
PROGRAM 


MAIN 


40 014172 


SEQ 0095 


sCHECK ERROR BITS IN THE RHXX € RPO? REGISTERS 


7 eee . SRPCSICRO) 
#177400, sRPCS2(RO) 


1 

wo 1¢R0) 
SRPERS(RO) 
is 


sSEE IF ‘TRE’ OR ‘MCPE SET 
s6R IT EITHER SET 
SEE IF ERROR BITS IN CS2 SEF 


BR ANY 
vANY BITS SET IN ERI 
TANY BITS SET IN ERS ? 
3;6R IF YES 
sANY BIT SET IN ER2 
3:6R IF NO 

PRINT LINE 1 OF MESSAGE 
TERROR rg SET. BUT NO ERROR BITS SET 
sPRINT LINE 2 OF ERROR MESSAGE 
‘PRINT the ; OF pa rESSAGE 
sPRINT LINE 4 OF ERROR MESSAGE 


s INCREMENT TOTAL ERROR COUNT 
iPRINT LINE 7 OF ERROR MESSAGE 


sCHECK BUS ADDRESS REGISTER € WORD COUNT REGISTER 


060000 000166 CKERR; a 
177400 000176 eIT 
BNE 
000202 TsTt 
BNE 
000230 TsT 
BNE 
000226 TST 
BR 
0222 18: JSR 
053123 OISPLY 
022342 JSR 
022776 JSR 
023446 JSR 
JSR 
024136 JSR 
2s: ats 
000170 CKBUS: TST 
BNE 
000020 Ov 
ASL 
ADD 
000172 CMP 
BEQ 
022274 18: JSR 
052702 OISPLY 
022 JSR 
023034 JSR 
02 JSR 
JSR 
024136 JSR 
2s: RIS 


nS 


SWROLC RO), -C SP) 
(SP) 


ds 


sCHECK WORD COUNT 

s6R IF NOT ZERO 

sWORD LENGTH 

sCHANGE INTO BYTE COUNT 
sADD THE STARTING LOCATION 
BUFFER ADDRESS PROPER 7? 


s6R IF 

sPRINT LINE 1 OF ERROR MESSAGE 

s8US ADDRESS OR WORD COUNT INCORRECT 
sPRINT LINE 2 OF ERROR MESSAGE 
sPRINT LINE 3D OF ERROR MESSAGE 
sPRINT LINE 4 OF ERROR MESSAGE 

s INCREMENT TOTAL ERROR COUNT 

sPRINT LINE 7 OF ERROR MESSAGE 


G8 


C70.50B0 @POT PERF EXER MACRO VO6.00 1-0EC 63 10:82:28 PAGE 56 5€0 0096 
MAIN PROGRAM 
i sCOMPARE TE BUFFER 
= o1eize 005037 001552 crran: CLA FRSTER sCLEAR “FIRST ERROR” AND ‘NO OCK’ INDICATOR 
$ 014200 132760 000006 000024 CAPARD: BITS 04, SCODE(RO) see IF READ 
6 014206 001 BNE ry son IF IT IS 
i 0020? ats 3 RE TUR 
® 014212 005037 001362 1s: CLR ercte sCLEAR THE ERROR COUNTER 
10 014216 016001 00000 wv sOUF (RO) sGUFFER ADORESS 
11 014222 016037 000020 001366 Ov SUROL(RO}, sWORD COUNT TO WORKING LOCATION 
12 014230 066037 000170 001366 ADO SRPUC(RO).CMCNT ;CALCULATE WORDS TRANSFERED 
13 014236 001 BNE 26 
4 01 00020 ats eC sEXIT--NO WORDS xFERED 
16 014242 016037 000012 001370 2%: mov SCYL(RO),CMCYL CYLINDER ADORESS WORKING LOCATION 
17 014250 052737 001370 eis @150000,CMCYL SET MFG, USER AMD FMT BITS 
18 016037 000010 0013 Ov SSEC(RO).CHSEC ,SECTOR & TRACK ADDRESSES TO WORKING LOCNS 
19 014264 013737 001460 00 Ov CPPLAT.LIMIT © ,;OISPLAY LIMIT 
20 014272 005287 001364 INC LIMIT ’ TER INTO LIMIT VALUE 
21 014276 012737 177777 ©013S0 CHSTR: mov 6-1, ZROIND ’ TE ‘ZERO’ S* INDICATOR 
014304 005037 001356 ’ Tre Ri SAVE WORD 
310 005087 001560 ’ THE &S SAVE WORD 
24 014314 023760 001366 000022 CHONT, SSSEC(RO) ,1S BUFFER SIZE GREATER THAN ONE SECTOR ? 
322 101005 BHI 4 sn IF IT IS 
4328 013702 001366 Ov m2 8 THAN, USE REMAINING GUFTER 
27 014330 005037 001566 CLR sSET COUNTER TO © 
29 014836 016002 900022 18: mOv $SSEC(RO).R2 COMPARE SECTOR 
30 014342 166037 000022 001366 28 8SSEC(RO).CMCNT ;DECREMENT WORD COUNT 
31 014350 7 000024 000005 2%: SCODE(RO).65 READ MEADER & DATA? 
$2 1034 ONE Croat s0R IF NOT 
$4 sCOMPARE HEADER WORDS 
36 014360 012705 001370 CPeED: MOV sADORESS OF ING CYLINDER 
37 014364 052711 1s #150000,(R1) SET BITS TMEASE BAD SECTOR ENCOUNTER 
58 014370 eS (R5)+, CAL D> sCHECK CYLINDER 
39 014372 001 BE is 30R IF cw 
40 014374 012737 177777 0013746 MOV @-1, MROPOS sINDICATE WORD POSITION IS HEADER WROD 1 
41 014402 004737 014436 JSR Pc, CMs TR2 }REPORT ERROR 
42 014406 18: cre (R5)0,(R1 D> sCOMPARE SECTOR/ TRACK 
43 014410 001 6EQ 20 s0n IF EQ 
44 014412 012737 277776 001374 MOV @-2, WROPOS sINDICATE WORD POSITION IS HEADER WRD 2 
45 014420 004737 014436 JSR Pc .cnsTR2 sREPORT ERROR 
46 014424 462702 00002 2%; SUB @2.R2 SSUBTRACT HEADER LENGTH FROM SIZE 
47 014430 00300 @cT CHDAT s0R IF NOT FINISHED 
48 014432 000137 015052 a) CHPRK sCOMPARE THE DATA PORTION 
SO 014436 005237 001362 CMSTR2: INC ERCTR sINCREMENT THE ERROR COUNT 
51 014442 004737 015060 JSA PC. CMPRT ;REPORT THE COMPARISON ERROR 
52 014446 7 ats eC sCHECK THE REST OF THE HEADER 


520 0097 
’ 
' 
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eles sas 1 20 68 20.82.20 Ome 00 


OlVIOE SY 16.) 
Guast 
WORD 


tf 

Mais ips gh 3 

if it ao 7G 1 lie 
i to Tit mies al Et 


7 “illdudel | ea, 


7 Sa Bivadds BREEE 3 
é 


Th a ee 
“Tl OOH LHREEENY BERIT EE BES 
UFR CEETESERRERSTING HI = 


_ EERE UTDs Tlic ccecesecezsssseasd Gitsatd fa 


FARRAR TITIETSSERAAT 


MASK WORD 
set 
Tee 
WORD 
ACK 
eITs 
6ITs 
NEXT 


ie 








001414 
001414 
001414 


001420 


163210 


78: 


SECWRD1 .ECBAD1 
ECMSK1, -( SP) 
SECWRD1. (SP) 
ECMSK1 , BECWRD1 
(SP )+,@ECWROL 


bo 


ZRIOBO RPO? PERF EKER MACRO VO04.00 1-DEC 83 10:50:08 PAGE 41 


MAIN PROGRAM 


ECC1i: 


ECCe: 
ECCX: 


DISPLY 
MO 


sHEADER 

sPUT ECWRO ON THE STACK 

sTYPE ECWRD 

sPUT THE WORD POS ON THE STACK 
sCONVERT IT TO DECIMAL 

sTYPE IT (REPLACE LEADING ZEROS) 
; TYPE 6 DIGITS 

3 TYPE . at 

sTYPE 2 BLANKS 

sPUT ECBADO ON THE STACK 

sTYPE ECBADO 

: TYPE 2 BLANKS 

sPUT BECWRO ON THE STACK 

sTYPE SECWRD 

;TYPE 2 BLANKS 


sPRINT THE NEXT WORD ? 

36R IF NOT 

3CR-LF 

sPUT ECWRD1 ON THE STACK 

sTYPE ECWRD1 

sPUT THE WORD POS ON THE STACK 
sINC TO SECOND WORD OF BURST 
;CONVERT IT TO DECIMAL 

sTYPE IT CREPLACE LEADING ZEROS) 
sTYPE 6 DIGITS 

sTYPE ‘ 

sTYPE 2 BLANKS 

3PuT oo ON THE STACK 


S 
sPUT SECWRD1 ON THE STACK 
sTYPE SECWRD1 
sTYPE 2 BLANKS 
sExIT 


4 WY BURST WAS NOT TRANSFERED TO MEMORY 
3 - 
sRETURN 


SEQ 0104 


CZRIOBO RPO? PERF EXER MACRO V04.00 1-DEC 83 10:32:28 PAGE 42 


MAIN PROGRAM 


OG si LP alr 


10 016434 


100000 0002350 


162510 


000024 


000024 


sROUTINE TO CHECK ERROR REGISTER @3 FOR THE BAD SECTOR BIT 


:CALL 
3 JSR 
$ e«- - 
3 


SPOTCK: BIT 
BNE 
ACD 
18: RTS 


3 
8 JSR 


PRTBAD: 


1%: 


2s: 


3%: ADD 


at: OISPLY 
S$: MOV 


6%: 


SWROL (RO), -( SP) 
es 
(SP )« 

PC 


-(SP) 
+ gar > oye alate 


»BLNKS2 
R1, $RPBACRO) 


PC, SPOTCK sCALL ROUTINE 
sRETURN HERE IF BAD SPO! IS FOUND, ELSE 
sRETURN HERE 

9BSE, SRPERS(RO) ;SEE IF BSE BIT IS SET, 

1s sBRANCH IF SO, ELSE 

@2,(S5P) sADJUST RETURN ss 

PC sExIT 

a TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 

PC ,.PRTBAD sCALL ROUTINE 

@SW3.,aSwR sPRINT THE BAD SECTOR ? 

83 36R IF NOT 

$RPBACRO),R1i ;PUT THE END ADDRESS INTO R1 


sF IND THE BEGINNING OF THE SECTOR 
sSUBTRACT THE WORDS NOT TRANSFERED 


sRESTORE STACK 

sEXIT--NO WORDS XFERRED 

sMAKE THE UPPER DIVIDEND 0 

sDIVIDE THE WORDS XFERED BY THE SECTOR SIZE 
sOIVIDE 

sREMANDER = 0 ? 

36R IF IT IS - COMPLETE SECTOR TRANSFERED 
sCONVERT THE RESIDUAL SECTOR INTO BYTE COUNT 
sSUBTRACT IT FROM THE END ADDRESS 

sFINISH THE SIZING 

;SUBTRACT FULL SECTOR FROM END ADOR (IN BYTES) 
3sWAS OPERATION READ HEADER € DATA ? 

368R IF NOT 

sSUBTRACT HEADER SIZE FROM ADDR 

et THE STACK POINTER 

3 

sPRINT THE HEADER 

ae —~ eee READ HEADER € DATA ? 


sTYPE ‘ADOR HEADER’ 
sPUT THE ADORESS ON THE STACK 
ADDRESS 


sTYPE THE iST HEADER WORD 
sTYPE 1 BLANK 

3PUT WORD ON STACK 

sTYPE THE 2ND HEADER WORD 
3CR-LF 


sTYPE ‘ADOR DATA’ 


38. DATA WORDS PER LINE 
sPUT THE ADDRESS ON THE STACK 
ADORESS 


2 BLANKS 
sPRINTED ALL THE SECTOR ? 


SEQ 0105 


DY 


CZRJUBO RPO? PERF EXER MACRO VO4.00 1-JEC 63 10:32:28 PAGE 42 1 
MAIN PROGRAM 


056611 
024366 


001203 


001203 
001203 


BEQ 7$ 
DISPLY ,BLNKSI 
MOV (RL), -CSP) 
JSR PC .LINOCT 
DEC R2 
BNE 6$ 
DISPLY ,SCRLF 
BR 5$ 
78: DISPLY ,SsCRiF 
DISPLY ,$CRiF 
8$: RIS 


3;6R IF ALL PRINTED 

sTYPE 1 BLANK 

sPUT THE DATA ON THE STACK 

sTYPE THE DATA 

sDECREMENT THE HORIZONTAL COUNT 
36R IF NOT AT THE END OF THE LINE 


sCR-LF 
sRESTORE THE WORDS/LINE COUNT 


SEQ 01046 


EY 


CZR JOBO van od PERF EXER MACRO V04.00 1-0EC-63 10:52:28 PAGE 45 


MAIN 


016710 


we o OSU Y Biatvrw 


22 016776 


050736 


Ig TO DO A RECALIBRATE USING ACTIVE DPB 


ALL: 

Fy MOV @0PB ,RO 3:0PB ADDRESS 

3 JSR PC,RECALT 

’ RE TURN 

RECALT: MOV RO,28 sLOAD THE DPB ADDRESS 
“Ove $RPCS1(RO), SPREVOCRO) sSAVE THE PREVIOUS COMMAND 
MOvB @RECAL , SCOMND( RO) sLOAD THE NEW COMMAND 

18: JSR RO, RPO? sSTART THE RECALIBRATE 

2s: -WORD 9 3s0PB ADDRESS 
BR 18 sORIVER DION’ T ACCEPT THE COMMAND 

38; TST STATUSC(RO) sSEE IF FINISHED 
BEQ 3% sIF EQ NO 
JSR PC ,READOR sDECREMENT THE ADDRESSES 
MOV (SP)+, SPREVA+2(RO) sMOVE THE CYLINDER ADDRESS 
MOvB (SP )+, SPREVA+1(RO) sMOVE THE TRACK ss 

(SP )+, SPREVACRO) sMOVE THE SECTOR ADDRESS 

CLR SCYLC(RO) sCLEAR THe CURRENT CYLINDER ADDRESS 
CLR $SECCRO) sCLEAR THE CURRENT TRK/SEC ADDRESS 
RTS PC sRETURN 

ave TO A RECAL WITH NO DPB ACTIVE 

é 3 

3 MOvB @ORIVE , GENDPB sORIVE ADDRESS 

3 JSR PC .RECALO 

3 RETURN 

RECALO: MOVB @RECAL , GENDPB + SCOMND sRELCALIBRATE COMMAND 

18: JSR RO,RPO7 sORIVER ENTRANCE 
GENDPB s0P8 ADDRESS FOR COMMAND 
BR is sORIVER DION‘ T ACCEPT THE COMMAND 

2%: TST GENDPB + STATUS sSEE IF FINISHED 
a se ;68R IF NOT FINISHED 


SEG 0107 


ee ~ aee C*# ee! ee Cee ee et—T 


FS 


oer or. ve EXER MACRO V0O4.00 1-0EC 63 10:52:28 PAGE 44 


MAIN 


~- 
OOS AP VSiatse 
° 


23 017116 


HS SSIKSEEKESVSLAE 


E>) 
56 017216 
57 017224 


mN 
oak 


0013522 


000016 


001322 


sUTILTTY READ HEADER ROUTINE 


sCALL: 
: MOV @0P8 ,RO :0°B8 ADDRESS 
‘ Ov @SECTOR,-(SP) SECTOR ADORESS 
: MOV S .-(SP)  4TRACK ADORESS 
: "Ov @CYLINDER, -(SP) sCYLINDER ADORESS 
; JSR PC .READOR 
‘ RE TURN 
READHD: MOVE 4(SP),GENDPB-$TRK ADORE SS 
MOVE  6(SP),GENDPB+SSEC sSECTOR ADDRESS 
MOV 2( SP), GENDPB+ SCL sC¥L ADORE 
MOVE (RO), GENDPB sORIVE 
MOVB  @ROMD,GENDPB- ’ 
MOV @-2,GENDPB + SWCNT enna cle «2 
18: JSR RO, RPO? sORTVER ENT 
GENDPB 30P8 ADDRESS FOR COMMAND 
BR 18 sORIVER OrDN ACCEPT COMMAND 
28: TST GENDPB-STATUS j FINISHED? 
BEQ 28 ;0R IF NOT 
MOV (SP),6(SP) }ADJUST STACK FOR RETURN 
ADO 0, ’ T RETRUN POINTER 
ats PC sRETURN 
RETRY THE PRESENT OPERATION 
: 3 
ry MOV @COUNT RETRY sRETRY COUNT 
; JSR PC, sRETRY 
; RE sRETRY UNSUCE SSFUL 
: RE sSUCESSFUL RETR 
’ INOTE? IFA DIFFERENT ERROR OCCURS DURING 
: sRETRY, THE ROUTINE EXITS TO ‘ERPRC1’ 
$RETRY: JSR PC ,GOORIV sRE-START ORDER 
1s: TST STATUSCRO) sORDER FINISHED? 
BEQ $ 30R IF NOT 
eMI 28 :8R IF ERROR 
INCB RETRY +1 s INCREMENT RETRY COUNT 
ADO @2,(SP) ’ RE 
BR 63 3G0 TO EXIT 
2s: err @81T7, STATUSCRO) @fOt ORDER TERMINATE NORMALLY ? 
t 
TST MASK 11S ERROR MASK O ? 
BNE 3% 368R IF NOT 
TST $RPERI(RO) sMAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 
BNE 78 368R IF NOT 
BR 5$ sCONTINUE RETRY 
38: cmp @7,.MASK sEWN ERROR? 
BNE 4g 3 IF NO 
BIT @BIT1,$RPDS(RO) ;’EWN' STILL SET? 
BEQ 78 NO T DIFFERENT ERROR 
BR S$ SET, RETRY 
4s: BIT MASK, $RPERL(RO) ;SAME ERROR? 
BEQ 78 38R IF NOT 


SEQ 0108 


G9 


CZR.J0BO RPO? PERF EXER MACRO VO6.00 1-0EC-63 10:52:28 PAGE 44-1 5£@ 0109 
MAIN PROGRAM 

$8 017226 105237 001325 St: INCe 0 RE TRv+4 sINCREMENT RETRY COUNT 

Se 017232 123737 001824 001325 RETRY.RETRY+1 ;OONE ? 

€0 017 001327 ane SRE TRY sOR IF NOT DONE 

61 017242 000207 68: ats eC 3 RE TURING 

63 017266 006737 024354 78: ssa PC.LINES sREPORT DIFFERENT ERROR 

64 017250 004737 026136 YSa PC LINE? sPRINT LINE 7? 

65 017254 005726 Ts? (P)- sADJUST STACK POINTER FOR DIRECT RETURN 

& 017256 000207 ats eC PE TURN 

68 017260 104414 055650 es: OISPLY .LINGM ‘DIFFERENT ERROR DURING RETRY’ 

69 017264 000137 007636 se ERPRCI sREPORT THE ERROR 


HY 
CZRJOBO BPO? PERF EXER MACRO 06.00 1-OEC-6S 10:82:28 PAGE 45 SEG 0110 
Mart PROGRAM | 


sPOUTINE 10 WRPDATE Tre PERF ORE GIFT STATISTICS 


‘ 
; ‘ae 1DPB AOOMESS 
; ‘ Y= ec. Siatrs 
017270 ©32760 00300 OO001S STATIS: BIT  sBITOTISTTOS, staTUSCROD DATA fERPINATION 
01727% 015 eo OC? an DF MT DATA eRMINAT Ion 
A iL OR 
12 SiFbie $0023? 017570 Sse sUPacTOR SCOMERT 10 A WORD Count 
14 ot7822 322769 00002 oonoRS pe 92.SCODECROD SEE ran) WAS A WRITE 
FE: I I  eenteionlertoneh 
BS SS SERS SS escent nah ach? Stee unrtvn vo a> cosas 
33 sire 916086 900062 MOY swTOTL-@CRO et SET LOW OtvIDEO 
o1s7e Sites 941100 OY salibon-¢ao3  sGeT Low OIvisom ee 
£3 oi rece 912706 00047 oy 7 <3) sGET HIGH Son 
Sia gre Se SA celal 
i stress 912660 9000s mov te , UTOTL 66 )GET WIG 
Bt Sie 062760 000001 000056 Ao e1.sutoning) suppave TyDTa. unos WITTEN 
017442 a 38 j 
Riss Sas RB a eeneraee ov 
7 017450 00002 000026 4%; $2.0CODE(RO) SEE TF COMUND UAS A LATTE 
B iiss goless 017570 00036 8 Factor, fone 0D WORDS READ PER PASS 
ab Stites oe3700 17370 000072 FACTOR. SATOTLSACROD”  yROD WORDS READ TO REP COUNTER 
43 017508 Sieoss S000 nov eaTOTL +a; no} <3 mM tet Low DIVIDEND 
43 O17518. Sistas Seii00 MOY - S0al10On Cah} NGET LOW OIvIsR ee 
S¢ 017320 012746 900017 mOv 7, -(30) sGET SOR 
a6 O17580 Sostes gonnos ist FS (DID REP COUNTER REACH LIMIT YET ? 
9 17534 Soieis Bea 1 MO 
Bt SHE SLRS. goer SR ae ME ny 
By citzss Sossse Sooo OM RE tioneatnos tAob a Gant 
Sines See Be fBgsce ast coeur ov oem 


eS EXER FACRO ¥O6.00 1 OFC OS 10:82:78 Ome 45-1 
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CZR.J0B0 BPOT PERF EXER MACRO V04.00 1-DEC-63 10:32:28 PAGE 49 
MAIN PROGRAM 


sSTART Tee COMP FOR THE OF8 IN RO 
CALL: 


‘ MOV @0PB RO :0PB ADORESS 

: JSR PC .GOORTV 

‘ RE TURN 

GOORIV: MOv RO, -( SP) sSAVE RO 
Mov *28 ;CURRENT OPB ADORESS 

18: JSR RO.RPOT7 sCALL THE 

28: .WORD 0 sORTVE BLOCK S$ HERE 
HALT DRIVER TED REQUEST 
MOV CSP)+,.RO sRESTORE 
ADD @1,80PERCC(RO) 5 THE OPERATION COUNT 
aoc SOPERC+2(RO) 
owe SPREVA+2(RO), SCVLCRO? efO™ COMMAND REQUIRE A CYLINDER CHANGE ? 
ADD @1,$SEEKS(RO) INCREMENT SEEK COUNT PER PASS 
ADC $SEEKS-2( RO? 3ADD ANY CARRY 
ADD 1,$STOTL(RO) ; SEEK COUNT TOTAL 
ADC sstorL-2cno) 3ADD ANY CARRY 


D 
= 
w 


BLO 
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MAIN PROGRAM 


i a TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
e 3 L 

& Fy MOV oOPB ,RO :0P6 ADDRESS 

4 ; MOV ONN, $PACK( RO) 3GET COMMAND NUMBER 

5 : JSR PC, SEQPAR sCALL ROUTINE 

¢ 3 RETURN 

3 

8 sWHERE ‘NN’ CAN BE ONE OF THE FOLLOW NUMBERS; 

9 3 ‘WT’ COMMAND: -2 

ido 3 ‘W' COMMAND= -1 

il ; ‘T' COMMAND= O (NOT USED IN ROUTINE) 

1 : ‘R' COMMAND= 1 

14 020330 005760 000054 SEQPAR: TST SOPERC +2(RO) 31S THIS THE FIRST OPERATION ? 

15 020334 001010 BNE 1$ ;68R IF NO 

16 020336 005760 000052 TST SOPERC( RO) 3IS THIS THE FIRST OPERATION ? 

17 020342 001005 BNE 1$ 36R IF NO 

16 020344 012704 000010 MOV @$SEC,R4 sGET INDEX TO SECTOR ADDR STORAGE IN DPB 
19 020350 0047357 021412 JSR PC.CKLMTS 3GO0 CHECK DISK ADDRESS LIMITS 

+ 020354 000453 BR 3$ 388 IF NOT AT END OF SEQUENTIAL ADDRESSING 
22 020356 116060 000166 000027 15%: MOVvB $RPCS1( RO), SPREVOCRO) sSAVE CURRENT PARAMETERS 
23 020364 016060 000010 000032 MOV $SECC RO), SPREVAC RO) sSAVE PREVIOUS TRACK/SECTOR ADDRESS 
24 020372 016060 000012 34 MOV SCYL( RO), SPREVA-2(RO) sSAVE PREVIOUS CYLINDER ADDRESS 
25 020400 016060 000174 000010 MOV $RPDACRO), $SECCRO) sCURRENT SECTOR & TRACK ADDRESS 
+4 020406 016060 000222 000012 MOV $RPOCC(RO), SCYLCRO) sCURRENT CYLINDER ADDRESS 
28 020414 012704 000010 28: MOV @SSEC.R4 3GET INDEX TO SECTOR ADDR STORAGE IN DPB 
29 020420 004737 021412 JSR PC,.CKLMTS 3GO CHECK DISK ADDRESS LIMITS 

+4 020424 000427 BR 3$ 368R IF NOT AT END OF SEQUENTIAL ADDRESSING 
32 020426 116060 000146 000010 MOVB MINSEC(RO), $SECCRO) sRESET SECTOR ADDRESS 

33 020434 116060 000142 000011 MOVB MINTRK(RO), $TRKCRO) sRESET TRACK ADDRESS 

020442 01 000136 000012 MOV MINCYL(RO), SCYLC(RO) sRESET CYLINDER ADDRESS 

35 0204590 112760 000024 MovB 04, $CODECRO) 3SET CODE TO READ DATA 

36 020456 122760 177776 000026 CMPB @-2, $SPACKCRO) 3WAS WRITE DATA IN PROGESS ? 

37 020464 001473 BEQ 8s 3;6R IF YES CSTART TESTING, ‘T*‘ COMMAND) 

020466 004737 031500 JSR PC, SEOP sTHIS IS THE END OF PASS 

39 020472 032777 000020 160454 BIT @SW04 , 8SwR 300 NOT DROP DRIVE AT EOT (SWO4=1) ? 
40 020500 001467 BEQ 9% 36R IF NO 
rs 020502 000744 2s sMUST SURE ADDRESS IS NOT ‘BSF’ TRACK 
43 020504 012704 000010 3%: MOV @$SEC ,R4 3sGET INDEX TO SECTOR STORAGE 
44 020510 013705 001466 MOV TRS sWORD COUNT IS MAXIMUM 
4S 020514 004737 021572 JSR PC ,.CHKWC sCHECK WORD COUNT FOR MAXCYL/MAXTRK 
46 020520 010560 MOV RS, $WROLCRO) sGET WORD COUNT 
47 020524 042760 000377 000020 BIC @377,8WROLCRO) ;IS IT LESS THAN ONE SECTOR WORD COUNT ? 
48 020532 001002 4$ BR IF NO 
49 020534 105260 000021 INCB SWROL +1 CRO) sSET TO ONE SECTOR 
50 020540 016060 000020 000004 4%: MOV $WROL.CRO), SWONTCRO) sSTORE FOR 2’S COMPLEMENT WORD 
51 020546 016060 000020 000120 MOV $WROLC RO), SHLOWCCRO) sHOLO WORD FOR ‘RELBUF’ ROUTINE 
S52 020554 000004 NEG sWCNTCRO) sCHANGE WORD COUNT TO 2'S COMPLEMENT 
3 020560 012760 000400 000022 MOV #256. ., $SSECCRO) iSECTOR SIZE FOR READ OR WRITE 

55 020566 105760 000026 TSTB $PACKCRO) 3‘R' OR ‘W' COMMAND FOR THIS DRIVE ? 
56 020572 100407 BMI 6% ;8R IF WRITE 

57 020574 112760 000004 000024 5% MOVB #4, $CODECRO) sCODE FOR READ DATA 


5EQ 0117 


Cio 
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000171 
001424 
000002 
000161 
021352 
000030 
177777 


000026 
0001350 
006340 


000002 


6$: 


—— $COMND( RO) sORIVE CODE FOR OPERATION 
3SET UP FOR EXIT 


ROOMLY sLOCKED IN “READ ONLY” MODE ? 

53 s8R IF YES 

@2,$CODE(RO) —_ ;CODE FOR WRTDAT 

@URTDAT . SCOMNDCRO ) ;0P CODE 

PC ,GETP :GET PATTERN CODE 

RS, SPATICCRO) ;PATTERN CODE 

@-1,$NEXT(RO)  ;SET PARAMETERS SELECTED INDICATOR 
PC 3RE TURN 

$PACK(RO) sSET ‘T’ COMMAND FLAG IN DPB TABLE 
$NEXT(RO) ;CLEAR PARAMETER SELECTED’ INDICATOR 
(SP). sCLEAR STACK L 


MAIN 3; JUMP TO MAIN BACKGROUND LOOP 


SEG 9118 
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037306 
177776 
000004 
000122 
000174 
000222 
001510 
000054 


160242 


000124 
000126 


DLO 


sGENERATE PARAMETERS FOR THE OPERATION 


sCALL: 


JSR 
RE TURN 


GENPAR: JSR 


1%: 


2s: 


THEAD: 


1%: 


2s: 


OP , RO s0P6 ADDRESS 
PC ,GENPAR 
PC, SRAND sCYCLE THE RANDOM NUMBER GENERATOR 
RDONL Y sLOCKED IN “READ ONLY” MODE ? 
is sBR IF YES 
@SWO , ISWR sSEE IF 
is s8R IF SET - READ ONY 
06. 25 sREAD/WRITE SELECTION OIVISOR 
PC .GETREM sGET SELECTION VALUE 
RS RATIO sDETERMINE IF READ OR WRITE 
i$ 38R IF READ 
@2,R5 sSELECT WRITE DATA COMMAND 
sSELECT ADDRESS 
$LONUM,RS sSELECT READ OPERATION CODE 
sSWAP BYTES IN RS 

#rC1.RS sMASK OUT ALL BUT BIT O 

oRS Coen OFFSET FOR READ CODE 
RS, SNCODE(RO) SELECTION CODE TO CONTROL BLOCK 
SRPDACRO), SNSECCRO) sSECTOR AND TRACK 
$RPOCCRO), SNCYL(RO) sCYLINDER NUMBER 
RANDOM sENABLE RANDOM ADDRESS SELECT ? 
RANCYL sYES 
oe iTS a ae FIRST OPERATION ? 
SOPERC(RO) sIS THIS THE FIRST OPERATION ? 
2s :BR IF YES 
@SNSEC ,R4 sGET INDEX TO SECTOR ADDR STORAGE IN DPB 
PC .CKLMTS sGO CHECK DISK ADDRESS LIMITS 
3$ ;8R IF NOT AT END OF SEQUENTIAL ADDRESSING 
MINSEC(RO), $NSECCRO) sRESET SECTOR ADDRESS 
MINTRKC(RO), SNTRKCRO) sRESET TRACK ADORE 
MINCYLC(RO), SNCYLCRO) sRESET CYLINDER ADDRESS 
18 sRE-CHECK FOR ‘BSF‘ TRACK 
RANSIZ 3GO CHECK FOR RANDOM WORD SIZE 


oe rn 


E10 
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-oo@ OWS tate 
& 
S 
& 


sGENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘MINCYL’ & ‘MAXCYL’ 


RANCYL: MOV 
CMP 
BEQ 


8525 


18%: 


MAXCYL(RO),RS 
-Y Raeiandeetaatens 
MINCYL(RO) RS 
RS 


PC ,GETREM 
MINCYLC(RO),RS 
RS, SNCYL(RO) 


sGET MAXIMUM CYLINDER ADDRESS 

s‘MINCYL’ AND ‘MAXCYL’ THE SAME ? 

36R IF THEY ARE 

sGET NUMBER OF ALLOWABLE CYLINDERS 

s INCREMENT DIFFERENCE TO USE AS DIVISOR 
sGET THE RANDOM AUGMENT 

sNEW CYLINDER ADDRESS 

;STORE CYLINDER AODRESS In 0°68 


sGENERATE A RANDOM TRACK ADORESS BETWEEN VALUES ‘MINTRK’ & ‘MAXTRK’ 


18; 


are 


MAXTRACRO) RS 
MINTRKCRO) RS 


is 
MINTRK(RO) RS 
RS 


PC .GETREM 
MINTRK(RO) RS 
RS, SNTRKCRO) 


sGET MAXIMUM TRACK ADORESS 

s‘MINTRK’ AND ‘MAXTRK’ THE SAME ? 

pe ig AB 3 a 

sGET NUMBER OF ALLOWABLE TRACKS 

+ INCREMENT DIFFERENCE TO USE AS DIVISOR 
sGET THE RANDOM AUGMENT 

sNEW TRACK ADORESS 

iSTORE TRACK ADDRESS IN OPS 


sGENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES ‘MINSEC’ & ‘MAXSEC’ 


RANSEC: 


satya 2 


2s: 


sbuReeed 


MAXSEC(RO),RS 
MINSEC( RO). RS 


is 
MINSEC(RO),RS 
RS 


REM 
MINSEC(RO).RS 
RS, SNSECCRO) 


@SNSEC RS 
A) CKLMTS 


2 
PC, $RAND 
RANCYL 


sGET MAXIMUM SECTOR ADDRESS 
3’ MINSEC’ — THE SAME ? 


THE 
sGET NUMBER OF ALLOWABLE SECTORS 
T OIFFERENCE TO USE AS DIVISOR 


THE 
iNEW SECTOR ADDRESS 
iSTORE SECTOR ADORESS IN DPB 


ADDRESS JUST GENERATED IS NOT ‘BAD SECTOR FILE’ 


sGET INDEX TO SECTOR ADDR STORAGE IN OPB 
CHECK DISK IT 


iCYCLE THE RANDOM NUMBER GENERAT 
sGO GENERATE NEW ADDRESS 


SEQ 0120 


geeeese 
BREEEES 


aa 406 
45 021410 


021352 
000123 
177777 


000020 
001476 
001476 


037206 
032102 


F10 
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MAIN PROGRAM 


S66 0121 


sGENERATE A RANDOM BUFFER LENGTH BETWEEN 6 € THE VALUE IN ‘WRDCNT’ 


RANSIZ: MOV WROCNT RS 
ST RANDWC 
BNE 2s 
INC RS 
JSR PC. GETREM 
CMe 6 
8GE 28 
1s: JSR PC, SRAND 
BR RANSIZ 
2s: MOV @*NSEC RO 
JSR PC. Chu 
38: CHPB 0—s«@ 2, SNCODE(RO) 
BNE $ 
BIC 0377.85 
esas 
4s: MOV RS, SURDLCRO) 
:GET A RANDOM PATTERN NUMBER 
RANPAT: CHPB = @2, SNCODE(RO) 
BNE RANXIT 
JSR PC.GETPAT 
MOVE sR. SNPATC(RO) 
RANXIT: MOV @-i, #NEXTCRO) 
ats 
sROUTINE TO SELECT A PATTERN 
GETPAT: MOV 016. .RS 
TST PATTERN 
BEQ 18 
MOV PATTERN, RS 
eR 28 
1s: JSR PC, SRAND 
JSR PC .GETREM 
TST RS 
BEQ GETPAT 
2s: ASL RS 
RTS PC 


sGET MAX WORD COUNT 

es a a et 

’ 

s INCREMENT THE MAXIMUM WRD CNT 

;OIVIDE BY MAX VALUE 

sWORD COUNT LESS THAN 6 ? 

i8R IF NO 

iCYCLE THE RANDOM NUMBER GENERATOR 

sGET INDEX TO SECTOR STORAGE 

sSEE IF WORD COUNT IS TOO LARGE TO FIT 
OF TRACK. IF SO, THEN ADJUST 


sIN REMAINDER 
sWORD COUNT TO FIT ON TRACK. 
WRITE OPERATION ? 


s6R IF NO 

IWRITTING PARTIAL SECTOR ? 
38R IF NO, ELse. 

sWRITE AT LEAST ONE SECTOR 
sWORD COUNT 


sWRITE OPERATION ? 


TO CONTROL BLOCK 
sSET PARAMETERS SELECTED INDICATOR 
sRETURN 


sSELECT PATTERN 
— RANDOM PATTERN SELECTION ? 
iUSE INDEXED PATTERN 


iCYCLE THE RANDOM NUMBER GENERATOR 
sGET CODE 
;WAS oa ZERO SELECTED ? 


ed ca 
MAKE CODE INTO TABLE INDEX 





— ae =~ 


GLO 
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4 FB atre 


000002 
000001 000142 


000140 


000001 
000134 


000154 
46 566 
49 021570 


sTMIS ROUTINE IS USED TO CHECK ADORESS LIMITS BEFORE Tre NE 

+15 ORMED. IT WILL CHECK FOR MAXIMUM ADORESS Limits To LOOK 
FOR AN EMD TO THE SEQUENTIAL ADORESSING AMD WILL MAKE SURE 

sAOORESS IS NOT THE ‘GAD SECTOR FILE’ 

} s 

: "Ov e0PB RO 10°8 ADORESS 

: "Ov OPOINTER RO sPOINTER TO SECTOR STORAGE (SSEC OR SNSEC) IN 0P6 
‘ JSR PC. CKLNTS sCALL AOORESS LIMITS ROUTINE 

: cry 2? sRETURN HERE IF NOT END OF SEQUENTIAL ADORESSING 
$ tw wee sELSE, RETURN MERE TO RESET CISK ADORESS 

. 

sRO + OPS BEFORE CALLING THE ROUTINE 


ADORE SS 
s®4 + POINTER TO SECTOR STORAGE BEFORE CALLING THE ROUTINE 


CXLMTS: ADD POINT TO SECTOR STORAGE POINT IN OPS 
ow peepee IS CYLINDER ADORESS BELOW MIN. ? 
MOV, RINE VL.(ROD. 26 RESET CYLINOER TO MIN. 
18; owe 1(.A4 ),MENTAKCRO 1s ADORESS BELOW MIN. ? 
MOVE  - MINTRKCRO) seme)” RESET TRACK TO MIN 
2 ws (RA) MINSEECRO) iTS IS SECTOR ADORE SS slow Mise. ? 
MOV8 MIENSECCRO),(R4) ;RESET SECTOR TO MIN. 
JLOOK FOR MAXIMUM LIMITS, FOR END OF SEQUENTIAL ADDRESSING AND 
ASO CHECK THAT ADORESS IS NOT "BAD SECTON FINE’ 
51: AB {RADMAKSECCRO) 4TS SECTOR ADORESS AT MAXIM ? 
MOVE MINSEC(RO), (RO) iRESET SECTOR ADDRESS 
at: ICBO TO NEXT TRACK ADORESS 
St; we 4( 4) JMAKTAKCROD TRACK ADORESS OVER MAXIMUM ? 
MOV8 MINSEC(RO),(R4) ;RESET SECTOR ADORESS 
MOVE —-MINTRKCRO)_1(R4) SRESET TRACK ADORESS 
Inc 0. a(R , TO NEXT CYLINDER ADORESS 
6H: BRAD, MaNCTLCROD IS CYLINDER ADORESS OVER MAXIMUM ? 
ADD 82.) ADJUST RETURN TO RESET DISK ADORESS PARAMETERS 
CHECK NOT TO READ OR WRITE BAD SECTOR TRACK 
7%: MOV  -—- FEAC(ROD,-(SP) GET 1ST FE CYLIMOER (LAST CYLei) 
DEC ) }LOOK AT LAST USER CYLINDER 
CBBC RED,( SPD» ARE ME ON LAST USER CYLINDER ? 
CHB ine, TRKLMTCRO)* IS THIS THE BAD SECTOR TRACK ? 
EQ s8R IF YES 


D 
“4 
w 


pe sRETURN 


Cc 


H10 


C2R.J090 BOOT PERF EXER MACRO vO8 
00 1-0EC -63 10:32:28 Pace 
sS 


1 

; 

; Epon ped Fe 10 cmcus 
; iat re merce oy mu, By Ae Ay A 
; ee * Ov wot cme s SIRED WORD  eactens, tre ony Fn ae 

f : s pF ay By ~ pa 

i ; TURN sores. INTER To” TO sector ¢ 

ia sRO © CoE CK 

Ream ge i: Peay ree eas SFiS cattnee Ba meses wre cour 
+4 sees poate | 000146 Cemt: A000 RAE BEFORE CRAIG WE Tee @OUT ING a 
20 seisis boissons omnis? Tere MINSECCRO) = SLOW SOTRAL. AD 

23 Se1eze — < Saaseccno>, secant te + gt llatacangeelredhestne 

8 Geiszs Soicos eee > nm = fee Onn eam t 

33 SANTEEROD manttact orbs ? 

5 Sits izeoea socal sce cre te ROAMT IS : 

001016 000001 ; MAXCYL (RO), 2¢ + TRACK On MAX vou cot ton THEN CHE 
ee ae Sore 
i iiae Ss Se OU, coil OE mt 
39 021670 g028?s en: St: an me(36) ste toe, sec SECTOR (O5EC OR ENSEC™ ADDRESS 
do Selene Sosrae ee ne Gia ee oe 
$3 353438 oosaz0 eu . ss cron ows To na 
ae Shoes 44 - as tResTORe STACK ot 
a7 cine gossis 7 § aro! 
a9 cities G2ea2s 000002 ee oVES, OCONEE UND Coen 
3° poet oy popes ~ + SR: * alia ee 

Ssites sesere a one R4), (SP Do ry By Be By 
| 0217 005046 mov 8 ARE ME USER CYL +i) 
= 031734 116416 000001 gee (sP cro) «9 IF LAST at ta osn ‘ 
- 021 740 00020? oo sae} (SP ‘PusH ar‘hext To Last Ti 

Se SP). tap> vent can uy TanGe 
ss + HES EP tase Seron 
BD Seale Box Wee’ 
SEC TRK) 


L110 





LAR 
5 A bee. ; iE 
lah! aie ar a 
7 eee 
fi ie B tf i mul gE pli sy 
iat em RULE ea aaa 
Te a ot) ain i. ami 
ce & a i i if #22 ica 222e 
: | at tis SELETE asa B.8E. ie. alt fie. ths, é 
: vari gFoerseatbee uvpsslufis FPSExESEE Eeeeisensves § 
si ete tt Eg ier 
wee 
CEL G EG GGE ail dahil | 
Sainte Gans Gimmes SESE | 
ES A 
; 


aay = An Aged EER FACED 906.00 1 CEC OS 10:87:78 Om Set S80 0125 


“pol eae gamat arst 
oCmas 


ag- "PE" wet 


HsSSlsstceries 
= 





44-4, ~~"w 1-480 -68 Pb. 82.28 Ome $7 








TC 
Liars tite 
nie 


RR reese RES SESS SSSSRARAZ 





lees | 
bait itt ok ate 
ul iLakues tal 
_ Hed tet Bi a eaten 
25 a 





1 (EI EGEE Oe 
H HUD HUEGES A SRR 





id @ & 
HG OG 
t 


Ht 
pin 
nual fi 


SoecRareeey 
re 


= 
g 
z 
3 
> 
3 gees 
- Ss 


—-— + - 
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OO 1-220 Of 90.82.78 Cae $7 2 


Yee cen ss pad rn <—e «+ COE TT Se 


ee rt iniss Samrat 
sient Cue Cc to me coe 

cra ta, gree aie 

Slant ee tee be ene 
ee Stans _ 
stant Ens Ee Bo Cm Eck ACT CML CCE Mme TT: 
CIS: = Ht > wee 


Pixie mmom ine 
attum Cre Cot’ 
ADE 3 tuteect 


sPR INT LIE DOO OE SSAGE 
s°OPGA © AXXKEE BAAAAL 
DES: spas.cem wis * 


Bo rast) She Oe PT n 


Ber aera 


V*STAAT Ev. = CEC START Tims TT START SEC « SS" 


LINESE: OISPLY a‘ START 2 . 
mov ate -(SP) MOVE STACK 


»LINDEC TYPE IT IN DECIMAL 
ISPLY tTYPE 2 BLANKS 


DISPLY “LINST +ST Tax = 
ROve —STAKCROD, (SP) TRACK 10 STACK 
sh PCALIDEE i TYPE TMA, 





056610 
055126 
000010 
024420 
001208 


155756 


N10 


OISPLY .OLIas2 
DISPLY .LINSSS 
Sve «sseCEROD, (SP) 
JSR PC.LINDEC 
DISPLY ,SCRLF 

ats 6c 


sPRINT LINE SF OF ERROR MESSAGE 
s°RPDA © KXXXXK RPCA = XXXXXX’ 


LINESF: GIT 
BEG 
DISPLY ,LINDAS 
Ov 


$RPDAC RO), -C SP) 
JSR PC.LINOCT 
DISPLY ,BLNKS2 


DISPLY ,.LINCAS 

MOV $RPOC(RO), -( SP) 
JSR PC .LINOCT 
DISPLY ,$CRLF 

18: RTS PC 

3‘CCC TT SS PREV ADR = CCC TT 


LINS.1: JSR PC .READOR 
JSR PC .LINDEC 
DISPLY 


oT 
JSR PC,LINDEC 
DISPLY , 
JSR PC ,LINDEC 


JSR a »LINDEC 
DISPLY ,T 


JSR PC,,LINDEC 
DISPLY .S 
-(SP) 
MOVB $PREVACRO), (SP) 
JSR PC,LINDEC 
DISPLY ,$CRLF 
RTS PC 
s'START CyL= CCC END CyYt= CCC’ 
LIN3.3: DISPLY 
MOV 


JSR PC, 7 oa 
DISPLY ,LINE 
MOV 


JSR PC,LINDEC 
RTS PC 


s‘ACTUAL CYL= CCC TRK= TT’ 


-C(SP) 3 
MOVB $PREVA+1(RO), (SP) 


tisTaat See sec «* 


STACK 
rSECTOR” ADOR TO STACK 
sTYPE IT IN DECIMAL 


RPOC = 
{PUT DESIRED CYLINDER ADDRESS ON THE STACK 


sTYPE IT 


Ss‘ 


sDECREMENT TRACK AND SECTOR ADDRESS 


sTYPE IT IN DECIMAL 


sPRINT ‘T‘ 


one TRACK IN DECIMAL 


INT ‘S‘ 


i TYPE SECTOR ADDRESS 
s;PRINT ‘PREV ADDR‘ 


»LINPS 
$PREVA+2(RO), -(SP) sPREVIOUS CYLINDER 


Jp hnn. IT_IN DECIMAL 
3 


PRINT ‘T‘ 


MAKE ROOM ON THE STACK 
sPREVIOUS TRACK ADDRESS 


s TYPE IT IN DECIMAL 


sPRINT ‘S‘ 


OOM ON THE STACK 


sMAKE Ri 
sPREVIOUS SECTOR DDRESS 


sTYPE IT IN DECIMAL 


NE ‘38 


eLINSS i € 3C' ENTRANCE 
$PREVA+2(RO), - (SP) sPREVIOUS CYLINDER 


sTYPE IT IN DECIMAL 
sPRINT ‘ END CYL’ 
SRPDCCRO), - (SP) ;PRESENT CYLINDER 
sTYPE IT IN DECIMAL 


BL 
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104414 
013746 
042716 


000100 
055140 
000006 


000016 


000172 


000172 
000240 


000172 


000176 


LINS.4: DISPLY ,LINAS 
MOV CYLNOR, -(SP) 
BIC oBIT12,(SP) 
JSR PC,LINDEC 
DISPLY ,LINTS 
CLR -(SP) 
MOVB 
JSR PC,LINOEC 
DISPLY ,$CRLF 
RTS PC 


sPRINT LINE 4 OF ERROR MESSAGE 


sPRINT ‘ACTUAL CYL= ° 
sACTUAL CYLINDER 
sCLEAR THE FORMAT BIT 
sTYPE IT IN DECIMAL 
sPRINT ‘TRK= ' 

sCLEAR STACK WORD 


SP 
$RPDA+1(RO),(SP) sPUT TRACK ON STACK 


;TYPE IT IN DECIMAL 


3‘BUFFER ADR= XXXXXX WRD CNT= XXXxX NMBR WROS XFRD= Xxx’ 


LINE4: BIT @BITO6,$TATUS(RO) ;DATA ERROR ? 
BEQ 1s 38R IF NOT 
DISPLY ,LINM4 sPRINT ‘BUFFER ADR= ° 
MOV SBUFCRO),-(SP) ;BUFFER ADDR ON STACK 
JSR »LINOCT sCONVERT TO OCTAL € PRINT 
DISPLY ,LIN sPRINT ‘WROD CNT= ' 

Vv $WROL(RO).-(SP) ;BUFFER SIZE 

SR PC,.LINDEC sTYPE IT IN DECIMAL 
OISPLY ,LINX4 3’ NMBR WRDS XFRD = ' 
MOV $RPBACRO),-(SP) ;VALUE IN BUFFER ADDR REGISTER 
suB SBUF CRO). CSP) ;SUBTRACT STARTING ADDRESS 
ASR (SP) sCONVERT INTO A WORD COUNT 
JSR PC,LINDEC sTYPE IT IN DECIMAL 
DISPLY ,$CRLF 3CR-LF 

1%: RTS PC sRETURN 


sPRINT LINE 5S OF ERROR MESSAGE 


s'EXPCTD DATA= XXXXXX RECEVD DATA= XXXXXX 


WORD POS= Xxx’ 


LINES: DISPLY ,LINOS sPRINT ‘EXPCTD DATA’ 
SUB @2, $RPBACRO) sBACK THE ADDRESS UP 
MOV $CPUOP, -( SP) sCHECK THE CPU (RH) TYPE 
BIC @*C174000,(SP) ;LEAVE THE CPU BITS 
CMP ©30000, (SP )+ ST 4 RH70 
BNE 1$ F NO 
SUB 04, $RPBACRO) BACKUP THE BUFFER POINTER 
BIT @BIT11, $RPCS3(RO) 3SEE WHICH WORD HALF DIDN’T COMPARE 
BEQ 1$ sIF EQ, EVEN HALF DION’ T COMPARE 
SUB #2, $RPBACRO) iBACKUP THE BUFFER POINTER AGAIN 

1%: MOV BSRPBACRO), -C SP) s'EXPCTO’ DATA - AT THE BUFFER LOCATION 
JSR PC,LINOCT sTYPE IT 
DISPLY ,LINBS sPRINT ‘RECEVD DATA’ 
MOV $RPDBCRO), -CSP) sRECEVD DATA FROM BUFFER 
JSR PC.LINOCT sTYPE IT 
MOV SRPUCCRO), - (SP) ,;WORD LENGTH ON STACK 
ADD $WROL(RO),.(SP)  ;MAKE INTO A POSITIVE NUMBER 
CLR -(SP) sUPPER DIVIDEND TO ZERO 
MOV $SSECCRO), -(SP) iSECTOR SIZE ON THE STACK 
JSR PC, $O0IV sDIVIDE WORDS XFERED BY SECTOR SIZE 
MOV (SP)+,CSP) sMOVE REMAINDER UP THE STACK 
DEC (SP) sDECREMENT WORD POSITION BY 1 
BIT @BI1T14, $RPCS2(RO) sIS ‘WCE’ SET ? 
BEQ os sBR IF NO 


SEQ 0130 
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280 023674 013746 001234 MOV sc » (SP) sCHECK THE CPU (RH) TYPE 
281 023700 042716 003777 BIC #*C174000,(SP) ;LEAVE THE CPU BITS 
2@2 023704 022726 030000 cme #30000, (SP )> ;SEE IF RH70 
283 023710 001007 BNE 2s 36R IF NO 
284 023712 162716 000002 suB @2,(SP) sSUBTRACT 2 FOR A DOUBLE WORD 
285 023716 032760 004000 000240 BIT eBttil. $RPCS3(RO) 3SEE WHICH WORD HALF DIDN‘T COMPARE 
286 023724 001401 BEQ 2s sIF EQ, EVEN HALF DIDN’T COMPARE 
287 023726 005316 DEC (SP) sSUBTRACT 1 FOR AN ODD WORD 
268 023730 104414 055253 2s: DISPLY ,LINPS sPRINT ‘WORD POS’ 
289 023734 004737 024420 PC .LINDEC sTYPE THE POSITION 
290 023740 104414 001203 DISPLY ,$CRLF 
43 023744 00020 RTS PC 
293 sPRINT LINE SA OF THE ERROR MESSAGE 
= 3'HEADER FROM ERROR SECTOR XXXXMMX XXXXXK XMMKMKMK  XMKMKKX’ 
296 023746 LINESA: 
297 023746 104414 055270 OISPLY ,LINSS 3s'HEADER CONTENTS OF ERROR SECTOR’ 
302 023752 013746 063364 MOV CYLNOR, -( SP) sHEADER POSITION 
023756 004737 024366 JSR PC.LINOCT sTYPE IT 
023762 104414 056610 OISPLY ,BLNKS2 sTYPE 2 BLANKS 
023766 013746 063366 Vv CYLNOR +2, - (SP) ;HEADER POSITION +2 
023772 004737 024366 PC,LINOCT sTYPE IT 
023776 104414 056610 DOISPLY ,BLNK sTYPE 2 BLANKS 
303 024 104414 056613 OISPLY *LINXS 
304 024006 104414 001203 DISPLY ,sCRLF 
oon 024012 00020 RTS PC 
307 sPRINT LINE SB OF ERROR MESSAGE 
+04 3‘RPECL = XXXXXX RPEC2 © XXXXXX’ 
310 024014 104414 055323 LINESB: DISPLY ,.LINEPS 3;‘RPEC1 = ' 
311 024020 016046 32 MOV $RPEC1(RO), - csp)’ 3PUT REGISTER CONTENTS ON THE STACK 
312 024024 004737 024366 JSR PC,LINOCT sTYPE IT 
313 024030 104414 056610 DISPLY .BLNK he 2 BLANKS 
314 024034 104414 055333 DISPLY LINEOS ‘ RPEC2 = ' 
315 024040 016046 000234 Vv $RPEC2(RO), - ¢ sp)" i REGISTER CONTENTS ON THE STACK 
316 004737 024366 JSR PC.LINOCT TYPE IT 
317 024050 104414 001203 DISPLY ,$CRLF 
t¢4 024054 00020 RTS PC sRETURN 
320 sPRINT LINE 6 OF ERROR MESSAGE 
a. s‘SECTOR IS ECC CORRECTABLE’ 
323 024056 104414 055345 LINE6: OISPLY ,LINB6E sPRINT ‘SECTOR IS ECC CORRECTABLE ' 
324 024062 104414 001203 OISPLY ,sCRLF 
= 024.66 000207 RTS PC 
327 sPRINT LINE 6A OF THE ERROR MESSAGE 
4 :‘SECTOR READ CORRECTLY AFTER N RETRY(S)’ 
330 024070 104414 055400 LINE6A: DISPLY ,LINC6 sPRINT ‘SECTOR READ CORRECTLY AFTER N RETRY(S)’ 
34 024074 000406 BR LIN6.2 s TYPE THE REST OF THE LINE 
333 sPRINT LINE 6C OF THE ERROR MESSAGE 
334 s'CORRECTED ON N RETRY(S)’ 


SEQ 6131 


Dil 
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c SEQ 0132 
ERROR MESSAGE GENERATION ROUTINES 


336 024076 104414 055435 LINE6GC: DISPLY ,LINGS 3‘ CORRECTED ON N RETRY(S)* 
337 024102 000403 BR LIN6.2 aTYPE THE REST OF THE «INE 
sta 
g%9 sPRINT LINE 6D OF THE ERROR MESSAGE 
co s UNCORRECTABLE AFTER N RETRY(S)’ 
1 
342 024104 104414 055465 LINE6D: DISPLY ,LINUOG sa’ UNCORRECTABLE AFTER N RETRY(S)’ 
4 024110 000400 BR LING6.2 3F INISH 
336 sRETRY COUNT TYPEOUT 
358 024112 LING6.2: CLR -(SP) sCLEAR STACK 
359 024114 113716 001325 “Ova RETRY+1,(SP) sRETRY COUNT 
360 024120 004737 024420 JSR PC,.LINDEC TYPE IT IN DECIMAL 
361 024124 104414 055453 DISPLY ,LINRGE 3° RETRYCS)* 
362 024130 104414 001203 DISPLY ,S$CRLF 
ss 024134 000207 RTS PC 
365 sPRINT LINE 7 OF THE ERROR MESSAGE 
+44 s' TOTALS; ERRORS:XXX WRDS WRITN:XXXXX X10?6 WRDS READ: XxXxXxXx xX10t6° 
377 024136 104414 055574 LINE7: ODISPLY ,.LIN7T sTOTALS; ERRORS 
378 024142 016046 000102 MOV STOTALCRO), -(SP) 3TO STACK 
379 024146 004737 0244 JSR PC ,.LINDEC ae 11’ IN DECIMAL 
024152 104414 055615 OISPLY ,.LIN7X PRINT ‘ WRDS WRITN’ 
381 024156 012746 MOV @SwTOTL, -CSP) i ADDRESS OF LOW WORD ON STACK 
024162 060016 ADD RO,( SP) 
383 024164 004737 037404 JSR PC, $ sCONVERT 
384 024170 004737 JSR PC.$ sPRINT 
385 024174 104414 057771 DISPLY ,PERIOD s TYPE ° 
386 024 104414 057632 DISPLY ,.MSGX10 3s TYPE * "x1006" 
387 104414 0556335 DISPLY IN7R sPRINT ‘ WRDS READ’ 
388 024210 012746 MOV @$RTOTL, -( SP) iLOW WORD ADDRESS 
389 024214 060016 A0D (SP) 
390 024216 004737 037404 JSR $ sCONVERT 
391 024222 004737 JSR PC, $SUPRL sPRINT IT 
392 024226 104414 057771 DISPLY ,.PERIOD sTYPE *.' 
393 024232 104414 057632 OISPLY ,MSGX10 sTYPE ° “x10t6' 
394 024236 104414 001203 OISPLY ,SsCRLF sCR-L 
395 024242 032777 100000 154704 BIT @SW15,8SWR Ce. F ‘HALT ON ERROR’ - SWITCH 15 
396 024 001401 BEQ is 368R IF NOT 
397 024 000000 HALT sSWITCH 15 HALT 
404 024254 000207 1%: RTS PC 
400 sPRINT LINE 7A OF ERROR MESSAGE 
pos 4 s‘TOTALS; SEEKS= XXXXX MIS POS ERRORS= XXX SKI ERRORS= Xxx’ 
412 024256 104414 055535 LINE7A: DISPLY ,LIN7P s'TOTALS;: SEEKS= ‘ 
413 024262 012746 000076 MOV @sSTOTL, -(SP) sTOTAL SEEKS 
414 024266 060016 ADD RO,CSP) sDEVICE TABLE ADDRESS 
415 024270 004737 037404 JSR PC, $0820 sCONVERT THE SEEK COUNT 
416 024274 004737 PC.$ sPRINT +3. 
417 024300 104414 057771 DISPLY ty s TYPE ° ; 
418 024304 104414 055512 OISPLY ,LIN7M g* MIS" pos ERRORS= ° 
419 024310 Ol 000112 MOV SMISPOCRO), -( SP) sTOTAL ERRORS 
420 024314 004737 024420 JSR PC,LINDEC i TYPE IT IN DECIMAL 
421 024320 104414 055555 DISPLY ,LIN7S 3’ SKI ERRORS= ° 


mm ee ee oe + ee ee a ee ee 


Fill 
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ERROR MESSAGE GENERATION ROUTINES 


422 024324 016046 000110 MOV $SKICRO),-(SP) CONVERT € PRINT IT 
423 024330 004737 024420 JSR PC.LINDEC sTYPE IT IN DECIMAL 
424 024334 104414 001203 DISPLY ,SCRLF CR -LF 
425 024340 032777 100000 154606 BIT @5w15,e@Sur iSEE IF MALT ON ERROR - SWITCH 15 SET 
426 024346 001401 8EQ 18 :8R IF NOT 
427 024350 000000 HALT ;SWITCH 15 WALT 
428 024352 000207 18: RTS PC 
430 sPRINT LINE 8 OF THE ERROR MESSAGE 
43 s‘DIFFERENT ERROR DURING RETRY: 
433 024354 104414 055650 LINES: OISPLY ,LINEM 
434 024360 004737 022342 JSR PC LINE? sPRINT LINE 2 OF ERROR MESSAGE 
43s 024364 000207 RTS PC 
437 sOCTAL TYPEOUT ROUTINE 
438 sCALL: 
439 : Mov NUM, -(SP) ;PUT THE NUMBER ON THE STACK 
440 : PC,.LINOCT 
roe : RETURN 
443 024366 016646 000002 LINOCT: MOV 2(SP), -(SP) sPUT NUMBER IN PROPER LOCATION ON STACK 
444 024372 004737 033442 JSR PC, $5820 sCONVERT THE NUMBER To OC TAL 
445 024376 012637 024412 MOV (SP)+,18 :GET THE ADORESS OF THE ASCII STRING 
062737 000005 024412 #5..18 sADDRESS THE LAST 6 ASCII DIGITS 
447 024410 104414 DISPLY sTYPE IT 
02441 18: .WORD 0 sADORESS 
449 024414 012616 MOV (SP)+, (SP) CORRECT THE STACK 
430 024416 7 RTS PC ;RETURN 
452 sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT 
453 }LEFT JUSTIFIED 
45a ‘ sCALL: 
455 : MOV NUM, -(SP) sPUT THE NUMBER ON THE STACK 
as6 : JSR PC,LINDEC 
437 : RE TURN 
459 024420 016646 000002 LINODEC: MOV 2¢SP), -(SP) sSET UP STACK FOR CONVERT 
460 024424 004737 033412 JSR PC, $S82D sCONVERT IT TO DECIMAL 
461 024430 004737 032526 JSR PC, $SUPRL 1 TYPE IT CLEFT JUSTIFIED) 
462 024434 104414 057771 DISPLY ,PERIOD sTYPE * 
463 024440 012616 MOV (SP)+, (SP) RESTORE. STACK POINTER 
464 024442 000207 RTS PC 
466 .SBTTL GENERAL SUPPORT SUBROUTINES 
a6e ; sDECREMENT THE SECTOR-TRACK ADDRESS 
3 $ 
470 , Mov @0PB RO :0PB ADDRESS 
471 , JSR PC, READOR 
fepucling 
‘ 
474 30N RETURN THE STACK CONTAINS THE FOLLOWING: 
475 , 4(SP) = SECTOR ADDRESS 
476 ; 2(SP) © TRACK ADDRESS 
a77 , (SP) = CYLINDER ADDRESS 
6 


SEG 0133 


Fil 
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GENERAL SUPPORT SUBROUTINES 

479 024444 162706 000006 READOR: SUB 6 .P sDECREMENT THE STACK POINTER 

460 024450 016616 000006 mOv 6( SP). SP) sMOVE THE RETURN ADOR DOWN THE STACK 

4@1 024454 005066 000006 CLR 6( SP) sCLEAR STACK FOR SECTOR 

4862 024460 005066 000006 cLR 4( SP) sCLEAR STACK FOR TRACK 

463 024464 116066 000174 000006 "Ove SRPDACRO) .6¢ SP) 2, sSECTOR ON STACK 

464 024472 116066 000175 "Ove SRPDA+1( RO) ,4( SP TRACK ee 

465 024500 016066 000222 000002 "OV SRPOC(RO).2¢ SP) ICYLINOER ADORE 

024506 000006 is: TsT 6( SP) sSECTOR on 

467 024512 001405 BEG sBRANCH IF 

468 024514 000006 DECB 6( SP) sDECREMENT ONE SECTOR 

4869 024520 BR 4% sBRANCH TO EXIT 

490 024522 005766 000004 26: TsT 4( SP) sALSO ON TRACK © ? 

491 024526 001406 BEQ 38 BRANCH so 

492 0245350 116066 000152 000006 SECLMT(RO).6( SP) sLAST SECTOR 

493 024536 105366 000004 OECB s0€ 

494 024542 000615 BR $ sEXIT 

495 0246544 000002 58: TST 2(SP) sALSO ON CYLINDER © ? 

4% 024550 001410 BEQ as :BRANCH so 

497 024552 116066 000152 000006 MOvB SECLMT(RO),6( SP) 5 secton 

498 024560 116066 000154 000004 Move TRKLMTCRO),4( SP) sGET LAST TRACK 

499 024566 005366 000002 SP) i” ONE CYLINOER COUNT 


DEC 2c 
500 024572 000207 4s: RTS PC 
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CHECK ROUTINE 


-SOTTL KW1l CLOCK CHECK ROUTINE 
sROUTINE 10 CHECK FOR Kwii-. OR Kwil-P CLOCKS 


| 
| 
| 
CKCLK: CLA CLEFLG sASSUME “NO CLOCK~ AVATLAGLE 
"Ov ERRVEC.-(SP) 4 ;PUSM ERRVEC ON STACK 
000004 i, +e TUP TRAP VECTOR FOR P-CLOCK CHECK 
1ST sCHECK FOR Kwii-P 
001310 01, CLKFLG sSET P-CL 
C.R1 sXW11-P ToR $s 
MOV OXWSVR.(AL)> «=, SETUP KW11-P VECTOR 
MOV (AL) SET IORTTY TO 6 
154432 MOV @-1667. ,@SLKCSB ;LOAD COUNTER BUFFER WITH 16.67 
154422 OV @131,@0LKCSR SET KWil-P INTERRUPT, CNT UP, 10US, REPEAT MODE 
ry] CKCLKS 
CKCLKA: mov o18.(SP) sSETUP RETURN ADDRESS 
000004 18; Ov OCKCLK2,ERRVEC SET © ERROR TRAP VECTOR FOR L-CLOCK CHECK 
TST @tLKS sCHECK FOR KWLi-L 
001310 MOV @-1, sSET L-CLOCK FLAG 
MOV $L!.VEC.R1i sKW11-L VECTOR ADORESS 
MOV VA;CALD>  4SETUP KW11-L VECTOR 
MOV cA) sSET INTERRUPT PRIORITY TO 6 
154356 MOV @100. SSLKS :SET KWi1-t INTERRUPT 
eA CKCLKS 
CKCLK2: mov @18,(SP) sSETUP RETURN ADORESS 
1s: TYPE ,NEDCLK PORE CLOCK MUST BE ON SYSTEM 
TST8 30s SauTOS }RUNNING IN AUTO MODE ? 
BE 28 s0R IF NOT 
Jee $GET42 ;ABORT 
26: HALT sHALT 
se START sTRY AGAIN 
CKCLKS: mov ($+ ERAVEC sRESTORE THE ERROR VECTOR 
sTHES ROUTINE IS USED TO SHUT OFF INTERRUPT TO THE SYSTEM CLOCK 
; JSR PC, CLKOFF sCALL. ROUTINE 
ra] Py 
BMI is 18R IF L-CLOCK 
154270 gic #101, B4LKCSR sSHUT OFF KW11-P INTERRUPT 
154266 18: BIC #100, 8.KS sSHUT OFF KW11-L INTERRUPT 
26: ats PC EXIT 


CLKOFF; TST CLKFLG sIS CLOCK AVAILABLE ? 
BEQ BR IF NO 
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en son 11GET OVER THE ASCIZ 

TYPE TYPE */ PASS * 

move 40 hotae> 1GET ADDRESS OF OPS 
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58 026526 005037 001472 ce INTRVL +2 
59 626532 000002 38; ati 


6 | e 
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KWil CLOCK CHECK ROUTINE 


OG sh intaw 


033510 
024770 
060061 


001334 
001542 
003522 
024574 
000124 
000101 
000067 
000060 


177770 
000124 


030110 
000104 
027700 
000123 


sCOMMAND DECODE ROUTINE 


sCALL: 
3 MOV #1,CFLAG 
3 
3 JSR PC,KSR 
3 RE TURN1 
3 RE TURN2 
KSR: TST OTUw 
BPL “SR 
KSR1: SAVREG 
177776 MOV @PR4 PS 
18: MOV RPADR ,R4 
000010 MOV @CLR,RPCS2(R4) 
CLR CFLAG 
TYPE . $CRLF 
JSR PC, $TIME 
TYPE » COMMA 
TYPE »BLNKS1 
MOV SSWR, -( SP) 
TYPOC 
JSR PC, $TKINT 
JSR PC .CLKOFF 
TYPE eENTCOM 
ROLIN 
MOV (SP)+,RS 
TST CFLAG 
BEQ es 
TST ASNLST 
BNE 13$ 
JMP START 
2s: JSR PC,CKCLK 
INC RS 
CMPB @’'T,.CRS) 
BEQ 98 
@'A,CRS) 
BEQ 3$ 
CmMPB (R5),0'7 
BHI 12s 
CR5),0'9O 
BLO 12$ 
BICB @tC7,CRS) 
177777 38%: CmMPB @'T,-1¢(R5) 


BNE as 

JSR PC .,.NEWASN 
13% 

@#'0,-10RS) 
S$ 

JSR PC,.DROPD 

13% 

@'S,-1¢RS) 

6% 


177777 4%: 


177777 S$: 


:'CFLAG' 
sROUTINE IN INTERRUPT 


sSYSTEM BUSY RETURN 
sRETURN AFTER KEYBOARD SERVICED 


sANY DATA TRANSFERS UNDER WAY ? 
36R IF YES 

sSAVE THE REGISTERS 

;SET PRIORITY TO 4 

;GET RP/RH BASE ADDRESS 

sCLEAR MASSBUS CONTROLLER 

sCLEAR THE ‘CONTROL C’ FLAG 

3CR-LF 

:TYPE ELAPSED TIME 

sTYPE ‘,' 

sTYPE 1 BLANK 

sTYPE ‘SWR = ' 

33SAVE @SWR FOR TYPEOUT 

s;CONTENTS OF SWITCH REGISTER 

33:GO TYPE--OCTAL ASCIICALL. DIGITS) 
s INITIALIZE TTY KEYBOARD 

sSHUT OFF CLOCK INTERRUPT WHILE WAITING 
;'ENTER COMMAND’ 


sREAD THE KEYBOARD 

3GET ADORESS OF INPUT STRING 
sWAS (tC) TYPED? 

;B8R IF NO 

sANY DRIVES ASSIGNED ? 

3;8R IF YES 

3 JUMP TO START 


sSTART SYSTEM CLOCK 
sPOINT he oe hes CHARACTER 


sEQ TO AN ‘A: 

3BR IF IT IS 

sORIVE NUMBER GREATER THAN AN ASCII 7 ? 
3;BR IF IT IS 

ee 7 = LESS THAN AN ASCII O ? 


sLEAVE 7 LOWER 3 BITS IF CHAR NOT ‘A’ 


:6R IF NOT EQ 
sASSIGN ORIVE FOR TEST 


T 
sEQ TO ‘0’ ? 


38R IF NOT EQ 


IS NORMALLY SE! BY THE Try SERVICE 
MODE 


SEG 0143 
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KW11 CLOCK CHECK ROUTINE 


177770 
030144 


057773 


060036 
026552 


151774 
000100 
177776 


177777 


152132 


177777 


177777 


151764 


o$: 


78: 
8s: 


9%: 


108; 
118: 
128; 
13%: 


otC7,1(RS) 
PC .WATPAK 


asTKB 


a 


OBITO6, as TKS 
PS 


Pc 


sTYPE STATISTICS 

sExIT 

sEQ TO ‘wr’ 

;BR IF NOT EQ 

:LOCKED IN “READ ONLY” MODE ? 
3;BR IF YES 

3IS SWITCH O SET ? 

;BR IF SET, CAN'T DO ‘Ww’ COMMAND 
sWRITE DATA 


3NO 

sLOCKED IN “READ ONLY” MODE ? 
38R IF YES 

2IS SWITCH O SET ? 

3B8R IF SET, CAN'T DO ‘Ww’ COMMAND 
o ORIVES ? 


37 

3GREAT THAN 7 

;YES 

3LESS THAN O 

3YES 

sCHOP OFF THE HIGHER BITS 
sASSIGN DRIVES WITH WT COMMAND 


sTYPE ‘CAN'T WRITE IN READ ONLY MODE’ 


3; TRY AGAIN 
3 TYPE INVALID COMMAND’ MESSAGE 
;TRY AGAIN 


;RESTORE RO - RS 

sCLEAR THE TTY BUFFER 

;SET TTY INTERRUPT ENABLE 
;SET PRIORITY BACK TO ZERO 
sRETURN 


SEQ 0144 


Dle 
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KWil CLOCK CHECK ROUTINE 

1 sROUTINE TO PROCESS THE ASSIGN REQUEST ('T’, ‘R’, OR ‘Ww’ COMMANDS) 
< 

= 027 111504 a MOVB (RS), R4 sPUT ORIVE @ IN RG 

4 027204 005037 001354 is CLR LAG sCLEAR CONTROL C FLAG 

5 027210 005037 001426 CLR DRVPAR sASSUME CHANGING DRIVE PARAMETERS 
6 027214 104401 TYPE . sTYPE ‘CHANGE DRIVE PARAMETERS ?° 
7 027220 104411 ROL IN sREAD THE ENTRY 

6 027222 01 MOV (SP)+,RO sSAVE ADDRESS OF RESPONSE 

9 027224 005737 001554 TsT CFLAG sWAS (*C) TYPED? 

10 027230 001565 BNE is sBR IF YES 

il 027232 105710 TSTB CRO) sWAS RESPONSE A CARRIAGE RETURN (DEFAULT ‘N’ )? 
12 027234 001414 BEQ 3$ BR IF YES 

13 027236 105760 000001 TsT8 1(RO) sWAS IT TERMINATED WITH CARRIAGE RETURN ? 
14 027242 1 BNE 2s sBR IF 

15 027244 122710 000151 CMPB ey, CRO) sWAS IT A ‘Y¥’ RESPONSE ? 

16 027250 001410 BEQ s6R 

17 027252 122710 000116 CMPB @'N, CRO) sWAS IT A ‘N’ RESPONSE ? 

18 027256 001403 BEQ 3$ s6R IF YE 

19 027260 104401 060165 2s: TYPE »BADENT iTYPE BAD ENTRY MESSAGE 
20 027264 000747 BR is sTRY AGAIN 
21 027266 005237 001426 38: INC ORVPAR s00 NOT CHANGE DRIVE PARAMETERS 
22 027272 122704 000101 4%: CMPB @’A,R4 TASSIGN ALL ORIVES ? 
‘= 027276 001426 BEG ASGN2 sBR IF YES 
25 027300 012737 056732 0313556 ASGNi: MOV @UNTASN,ASNMSG ;ERROR MESSAGE 
26 027306 005737 0014350 TsT xxOP sLOADED FROM THIS DEVICE ? 
27 027312 001407 BEQ is s6R IF 
28 027314 123704 0014350 CMPB XXDP ,R4 ;LOADED FROM THIS DRIVE ? 
29 027320 001 BNE is 36R IF NO 

30 027322 0127357 057041 031356 MOV @LODEV , ASNMSG :* LOAD DEVICE’ MESSAGE ADDRESS 

31 027330 00040 BR es 

32 027332 1536437 040630 001542 1%: BIT6 ATABIT(R4),ASNLST a ta ALREADY ASSIGNED ? 
33 027340 0010035 BNE es sR IF IT IS 

34 027342 004737 027444 JSR PC .ASGNS iSEE IF DRIVE ON THE SYSTEM 

35 027346 RTS PC sRET 

4 027350 000137 031532 2s: JP ASNERR SEXIT ERROR 

027354 ASGN2: CLR sSTART WITH DRIVE © 

39 027356 012737 056732 031356 1%: MOV @UNTASN,ASNMSG ;ERROR MESSAGE 
40 027364 005737 001430 TST x sLOADED FROM THIS DEVICE ? 
41 027370 001407 BEQ es sBR IF NO 
42 027372 123704 0014350 CHPB XXDP ,,R4 SLOADED FROM THIS ORIVE ? 
43 027376 001004 BNE es sBR IF 
44 027400 012737 057041 031356 MOV @LODEV.ASNMSG ;‘LOAD DEVICE’ MESSAGE ADDRESS 
4S 027406 000415 BR aa 
46 027410 136437 040630 001542 2%: BITS  aaaehs cotta sALREADY ASSIGNED ? 
47 027416 001007 BNE sYES 
48 027420 004737 027444 JSR Pe, ASGNS ; ASSIGN THE ORIVE 
49 027424 3%: INC R4 sINCREMENT ORIVE @ 
SO 027426 020427 000007 CMP R4,07 sALL ORIVE CHECKED ? 
S51 027432 003751 BLE i$ sNO 
S2 027434 7 RTS PC sYES 
53 027436 004737 0313352 4%; JSR PC, ASNERR sERROR MESSAGE 
= 027442 000770 BR 3% sTO LOOP 
S56 027444 136437 040630 001542 ASGNS3: BITB ATABITCR4), ASNLST sORIVE ALREADY ASSIGNED ? 
57 027452 001056 BNE ASGN4 38R IF IT IS 


eS SS cS kL 


a ne ee ee 


Ele 
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58 027454 110437 050734 
59 027460 0063504 


002056 
61 027466 004737 017000 
006204 


97 
98 027666 012737 057056 
99 027674 000137 031332 


1%: 


ASGN7: 


18: 


2s: 
38: 


TsT8 


33 3333235 


sGET ORIVE NUMBER 
MAKE 


iORIVE AVAILABLE? 


sBR IF ORIVE OFFLINE OR NONEXISTENT 
UNSAFE 


s6R IF ORIVE 


sCLEAR BLOCK FOR ORIVE JUST ASSIGNED 
NUMBER 


iGET ORIVE SERTAL 

s INTERLEAVE SECTOR SET ? 

s6R IF NO 

sCHANGE ORIVE PARAMETERS ? 
IF NO 


VE NUMBER 
TYPE--OCTAL ASCII 
1a TYPE 2 OIGIT(S) 
ae ot LEADING ZEROS 


YPE 
iTYPE 1 BLANK 
aed ie DRIVE SERIAL NUMBER 


R4 WORD INDEX 
THE ORIVE'S _— LIMITS 


eORVPRM sGET 
BLKADACRA), NEMUNT CRA) s0P6 


PACK , SPACK( 
R4 
PC 


@NOTSAF , ASNMSG 
ASNERR 


ORVTYPCR4 ) 
is 


2s 

— » ASNMSG 
oe » ASNMSG 
@UNTOFF , ASNMSG 
ASNERR 


@NINLEV, ASNMSG 
ASNERR 


ADORES 
3SET COMMAND INDICATOR 
sMAKE R4 BYTE INDEX 
sRETURN 


s‘ UNSAFE’ MESSAGE ADDRESS 
sTO ERROR ROUTINE 


sORIVE PRESENT? 
3;6R IF NOT 

3BF IF ORIVE OFFLINE 
— OF ‘NOT RPO7’ MSG 
’ 


sADDRESS OF ‘NOT PRESENT’ MSG 
sEXIT 


sADDRESS OF ‘DRIVE OFFLINE’ MESSAGE 
ROUTINE 


3TO ERROR 


sADORESS OF  . ~~ pacasteeanaedl MESSAGE 


sTO ERROR ROUTI 


SEQ 0146 


has 


Fi 


+ 
c 
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Kil CLOCK CHECK ROUTINE , 

: 

2 1°D’ COMMAND (ROUTINE TO DROP A DRIVE) | 

4 027700 DROPD: CLA Ra :START WITH DRIVE © 

5 027702 012703 000010 MOV 08. RS COUNTER 

6 027706 122715 000101 CHPR se A(R) }OROP ALL ORIVES ? | 

7 027712 001403 BEQ is s0R IF YES 

6 027714 111506 MOVE (RS), RA GET ORIVE NUMBER 

9 027716 012703 000001 MOV 1,83 iSET RS FOR ONE ORIVE 

10 027722 136437 040630 001542 15: BITB ATABIT(RS),ASMLS sORIVE ASSIGNED ? 

11 027780 001417 BEQ : 

12 027732 146437 040630 001542 BICB ATABIT(RS),ASMS DELETE THE ORIVE FROM THE ASSIGNED LIST 

13 027740 146437 040630 032100 BICB ATABITCR4).AUTLST ,DELETE DRIVE | FROM AUTO ASSIGN LIST 

14 027746 006304 ASL Ra MAKE ADOR INTO A 

15 027750 016464 002056 001544 MOV BLXAOR(RG),ODRVSERS)  sPuT ADORESS IN DROP LIST 

16 027756 ASR Ra 

1? 027760 005303 26: DEC R3 LAMY MORE DRIVES ? 

18 027762 001410 BEG ti«édkS i8R IF NO 

19 027764 INC Ra 

20 027766 000 BR 1 

21 027770 012787 056710 031356 38: MOV @UNTNOT,ASNMSG ;ADOR OF ‘NOT ASSIGNED’ MESSAGE 

22 027776 004737 031332 JSR «PC, ASNERR ;REPORT IT 

33 030002 000766 BR 28 

24 030008 000207 4s: Riss PE 

26 :'S' COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 

28 030006 SCMND : 

030006 013746 001542 MOV ASM.ST.-(SP) 1 sPUSH_ASMLST ON STACK 

29 030012 715 000101 CMPB s¢RS) +ALL STATISTICS ? 

30 030016 001416 BEQ 18R 

31 030020 111504 MOVE  (RS),R4 GET ORIVE NUMER 

32 030022 136416 040630 BITB ATABIT(R4),(SP) ;IS THIS ORIVE ASSIGNED ? 

33 030026 001404 BEQ 18 i 

34 030030 116437 040630 001542 MOVB  ATABITCR4), ASNLS ;GET ORIVE ASSIGN BIT 

35 030036 000411 BR 38 

37 030040 012737 056710 031356 18: MOV @UNTNOT.ASNMSG ;ADOR OF ‘NOT ASSIGNED’ MSG 

38 030046 004737 031332 JSR PC, ASNERR uTYPE ERROR MESSAGE 

39 030052 07041 BR ; EXIT 

40 030054 105737 001542 28: TST8 © ASMLST ANY ORIVE ASSIGNED ? 

41 030060 001410 Qa 648 

42 030062 004737 38: JSR PC, STATPR 

43 030066 104401 057407 let 2 Oe + Bet ceet-n ete 

44 030072 104401 001203 TYPE  ‘SCRLF ; 

45 030076 104401 057575 Tree! i TYPE ‘CONTINUING. ..° 

47 030102 4s: 

030102 012637 001542 MOV (SP)+,ASMLST  4,P0P STACK INTO ASNLST 
48 030106 000207 RTS 


| 
’ je F. ALL STATISTICS 


Gl2 
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oe Ubuve ooo 4®@Varatiw 


005037 
000137 


012737 
000137 


012737 
000137 


116515 
012737 
000137 


030162 
027202 


000001 
027202 
177777 


027202 


000001 
177776 
027202 


030162 


3’ 1’ COMMAND (ROUTINE TO TEST A DRIVE) 


NEWASN: CLR PACK sSET *T* COMMAND INDICATOR 
se ASSIGN sGO TO THE ASSIGN ROUTINE 

3‘ COMMAND (ROUTINE TO DO SEQUENTIAL READ DATA) 

REDAPK: MOV #1, PACK sSET ‘R* COMMAND INDICATOR 
re ASSIGN sASSIGN THE REQUESTED DRIVE 


3’ COMMAND (ROUTINE TO 00 SEQUENTIAL WRITE DATA) 


DATAPK: MOV @-1, PACK sSET ‘w’ COMMAND INDICATOR 
wep ASSIGN sASSIGN REQUESTED DRIVE 


s°WT’ COMMAND (ROUTINE TO 00 WRITE DATA AND TEST A DRIVE) 


WATPAK: MOVB 1S), (RS) sADJUST ORIVE NUMBER ADDRESS 
MOV @-2, PACK sSET ‘WT’ COMMAND INDICATOR 
se ASSIGN sJUMP TO ASSIGN ROUTINE 


PACK: -WORD O 


s TEMPORARY STORAGE FOR COMMAND INDICATOR 


SEG 0148 
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031472 
031476 


TER ENTRY ROUTINE: 


001203 


000020 
001456 
031362 


sTYPEOUT ASSIGN/DROP ERROR MESSAGE 


sCALL: 
: Ov OMESADR,ASNMSG ;ERROR MESSAGE ADORESS 
: JSR J ASNERR 
‘ RE TURN 
ASNERR: TYPE ,SCRLF sCR-LF 
TYPE QUES 2 
TYPE ORVMSG sTYPE ‘ORIVE’ 
MOV a4, -(SP) +sSAVE R4 FOR TYPEOUT 
aaT Ive R 
TYPOS 33G0 TYPE--OCTAL ASCII 
BYTE 2 ssTYPE 2 OIGIT(S) 
‘BYTE 0 ts SUPPRESS LEADING ZEROS 
YPE sTYPE SPECIFIC MESSAGE 
ASNMSG: .WORD 0 sMESSAGE ADDRESS 
ats PC 
;OROP ORIVE IF A FATAL ERROR OCCURS 
sCALL: 
: JSR PC,OROP 
3 RETURN 
DROP: CLR PERM ;CLR PERME ERROR FLAG 
CLR R4 ;CLEAR R4 FOR DRIVE NUMBER 
MOVB (RO),R4 ; IVE NUMBER TO R4 
001542 BICB ATABITCR4),ASNLST ;REMOVE DRIVE FROM ASSIGNED LIST 
032100 BICB ATABITCR4),AUTLST ;DELETE DRIVE FROM AUTO ASSIGN LIST 
ASL R4 ;MAKE DRIVE NUMBER INTO A TABLE INDEX 
MOV RO, DORVS(R4) ;PUT DRIVE IN DROP LIST 
TYPE » $CRLF 
TYPE § ,DROPNG ;TYPE ‘?2FATAL OR EXCESSIVE ERRORS’ 
TYPE “MSGON ;TYPE ‘ON’ 
TYPE ‘ DRVMSG ;TYPE ‘ORIVE’ 
ASR Ra ;ORIVE NUMBER 
MOV R4,-C(SP) 33SAVE R4 FOR TYPEOUT 
: 3:;TYPE DRIVE NUMBER 
TYPOS 33GO TYPE--OCTAL ASCII 
.BYTE 2 3sTYPE 2 DIGIT(S) 
"BYTE 0 ;:SUPPRESS LEADING ZEROS 
TYPE , $CRLF ;CR-LF 
1s: RTS PC 
;ROUTINE TO DROP DRIVE IF ERRORS BECOMES EXCESSIVE 
147474 ABNRML: BIT @SWO4, BSWR :SEE IF SWITCH 4 SET 
BNE 1$ ;BR IF IT'S SET 
000102 CMP MAXER, $TOTALCRO) ;CHECK TOTAL ERROR VALUE 
BHI 1$ :BR IF ERRORS CO NOT EXCEED MAX 
JMP DROP ;OROP THE DRIVE 
1$: RTS PC , gy RETURN 


CZRIOBO RPOT PERF EXER MACRO VO8.00 1-DEC 8% 10:42:2R PAGE 72 
PARAMETER ENTRY ROUTINE 


i sROUTTNE TO CHECK FOR END OF PASS AND END OF TEST 


~ 
- 


SEQ 9156 
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END OF PASS ROUTINE 


i 


032100 
032100 


001474 
147404 


001542 


001214 


147312 


. SBTTL 


Lis 


OB PAGE 75 SEQ 0157 


END OF PASS ROUTINE 


F EPOROOEOOOOEEERESESOEES EOE EEEEOEEESEEEEEEEEOEEEEEEEOEEEOEEOOREES 
s*INCREMENT THE PASS NUMBER ($PASS) 

3¢IF TRERES A MONITOR GO TO IT 

s*IF THERE ISN'T JUMP TO RTURN 


SEOP: 
1$: 


2s: 


3%: 


4$: 


58; 


R4,-( SP) ;SAVE RG 
(RO),R4 ;MOVE DRIVE NUMBER 
sAUTOB ‘RUNNING IN AUTO MODE ? 

3 
ATABIT(RA),AUTLST 41S DRIVE ALREADY ASSIGNED TO AUTO LIST ? 

3 
ATABIT(RA),AUTLST ;ADD ORIVE TO AUTO ASSIGN LIST | 
$PASSC(RO), PASSES :SEE IF AT END OF TEST | 
3$ ;8R IF NOT 
@SWO4 , BSWR ;TYPE END OF TEST MESSAGE (SWO4=1) ? 
3$ 38R IF NO 
. $CRLF 3CR-LF | 
. $CRLF 3;CR-LF 
* DASH13 ji. Se ' | 


<MSGEOT ;TYPE ‘END OF TEST------------------ EOT: 

ATABIT(RA),ASNLST NDELETE DRIVE FROM ASSIGNED LIST 
;MAKE ORIVE NUMBER INTO TABLE INDEX 

RO.DORVS(R&) {PUT BLOCK ADDRESS INTO DROP List 

ASNLST ALL DRIVES ARE DROPPED ? 


$PASSC(RO) s INCREMENT THE PASS COUNT 


| 
73 3BR IF NO | 
$DEVCT sINCREMENT DEVICE COUNT 
$PASS sINCREMENT THE PASS COUNT 
#100000, #PASS 3AVGID NEGATIVE NUMBER 
@SWO8 , 2SWR s INHIBIT END OF PASS TYPEOUT (SWO8=1) ? | 
4s ;8R IF YES 
. $CRLF 3CR-LF 
» SCRLF sCR-LF | 
‘DASH13 TW tniscoccmeesed ‘ 
* MSGEOP s TYPE ‘END OF PASS’ 
. $CRLF | 
PC, $TIME TYPE ELAPSED TIME | 
»MSGSUM 1 TYPE * SUMMARY ' 
PC ,ONESUM sTYPE ONE DRIVE SUMMARY 
R3, -(SP) sSAVE R3 | 
RO.R4 sDRIVE'S BLOCK ADDRESS 
@SROPAS,R 3ADD THE STARTING ADOR OF SECTIONS TO CLEAR | 
@< $OPERC - SROPAS> 22> RS sNUMBER OF LOCNS TO BE CLEARED | 
(R4)6 ;CLEAR LOCATIONS ‘$RDPAS’ - ‘$OPERC’ IN DPB | 
@2,R3 sO00NE CLEARING YET ? 
5$ :8R IF NO 
(SP)+,R3 sRESTORE R3 | 

| 


LT 
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END OF PASS ROUTINE 


~ 


CUB OV awn 


031742 
031746 


001150 
001542 


177776 
001100 
001212 
033510 
024574 
006340 


032100 


001214 


Dis 


6%: TSB SAUTOB 
BEU 7$ 
CMP ASNLST,AUTLST 
BEQ 83 
7$;: MOV (SP )+,R4 
RTS PC 
8s: INC AUTLST 
BNE 8s 
INC sDEVCT 
INC sPASS 
BIC #100000, $PASS 
DE (PC )> 
SEOPCT: .WORD 1 
BGT $D0AGN 
MOV (PC )+, aC PC d+ 
SENDCT: .WORD 1 
sEOPCT 
$GET42: MOV 8642 ,RO 
$DOAGN 
RESET 
SENDAD: JSR PC,CRO) 
NOP 
NOP 
NOP 
$DOAGN: 
JMP QC PC )> 
SRTNAD: .WORD RTURN 
RTURN: CLR PS 
MOV @STACK SP 
INC sTESTN 
JSR PC, $TKINT 
JSR PC ,CKCLK 
JMP MAIN 
AUTLST: .WORD 0 


sRUNNING IN AUTO MODE ? 
:3R IF NO 


sHAVE ALL DRIVES COMPLETED PASS IN AUTO MODE ? 


;BR IF YES 
sRESTORE R4 
sRETURN 


sCLEAR AUTO ASSIGN LIST FOR NEXT PASS AND 
;WAIT FOR TTY 

s INCREMENT DEVICE COUNT 

ss: INCREMENT THE PASS NUMBER 

33;00N‘'T ALLOW A NEG. NUMBER 

33LOOP? 


33YES 
3sRESTORE COUNTER 


33;GET MONITOR ADDRESS 
3:;BRANCH IF NO MONITOR 
3;CLEAR THE WORLD 
3:GO TO MONITOR 

ROOM 


sSET PRIORITY TO 0 

sRESTORE STACK 

s INCREMENT THE TEST NUMBER IN THE MAIL BOX 
sMAKE SURE KEYBOARD INTERRUPT AND 

sSYSTEM CLOCK ARE STILL ON. 

sRETURN TO LOOP 


sAUTO ASSIGN LIST (USED IN AUTO RUN MODE ) 


SEQ 0158 


erates etehntiata nasheshatamapeceana bead etedi cle dei eetdlaie een tue 


czR 


END OF PASS ROUTINE 
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° 
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14 


49 032170 
SO 032172 


037306 
037304 


032126 
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ALL: 


GETREM: MOV 


Tst 


: 52:28 PAGE 74 


NUMBER ,R'S 
PC ,GETREM 


F113 


-SBTTL INTEGER DIVIDE ROUTINE 


§ F SHESSSOSSSESHOESSSESESEESSEHSEEEEEEESEESEEESESESEEESEEEEEEEEEEEED 


s@THIS ROUTINE WILL DIVIDE A 32-BIT TWO’S COMPLEMENT INTEGER 


s*DIVIDEND BY A 16-BIT TwO’S COMPLE 


2h TO GET THE REMAINDER OF THE RANDOM NUMBER 


sDOIVISOR INTO RS 
sREMAINDER IS IN RS 


sSTORE RANDOM NUMBER ON THE STACK FOR DIVIDE 
;UPPER PART 

;PUT THE DIVISOR ONTO THE STACK 

sDIVIDE THE RANDOM NUMBERS 

sPUT THE REMAINDER INTO RS 

sADJUST THE STACK POINTER 


EMENT INTEGER DIVISOR GIVING 


s#A 16-BIT TWO’S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
s*DIVISION WILL BE PERFORMED SO THE 
s*SAME SIGN AS THE DIVIDEND. 


3 @CALL 


SAVREG 


LOW DIVIDEND, -(SP) 
HIGH DIVIDEND, -(SP) 


OIVISOR, -(SP) 


PC, $01V 


REMAINDER 
QUOTIENT 


26(SP),RS 
R4 


30( SP) ,R2 
32¢ SP), RS 
RO 


R3,32(SP) 


(SP)+, (SP) 
PC 


THAT THE REMAINDER IS OF 


33 THE HIGH DIVIDEND MUST BE < 1/72 
33AS LARGE AS THE DIVISOR 


ssQUOTIENT € REMAINDER ARE ON THE STACK 


OVERFLOW DIVIDE BY ZERO 
ALL ZEROS ALL ONES 
ALL ZEROS ALL ONES 


WORD 
sCLEAR OTHER DIVIDEND REGISTERS 


sGO TO THE DIVIDE ROUTINE 
sREMAINDER ON THE STACK 
sQUOTIENT ON THE STACK 
sRESTORE RO - RS 

sMOVE RETURN UP THE STACK 


SEQ 0159 


F13 
CZRJORO RPOT PERF EXER MACRO 04.00 1-DEC-83 10:52:28 PAGE 75 SEQ 0160 
DOUBLE DIVIDE ROUTINE 


-SBTTL DOUBLE DIVIDE ROUTINE 


i 

z § EOCROOOEOOCOOEEEEOEEEESESEOEEEESE SEES SEEESEEEEEEEESEEEEEEOOSEEEES 

a s*¢THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 

5 vee By A 32-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 

6 s*A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A a. 5 pewem. 


? s@DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS 
$ 1 eSAME SIGN AS THE DIVIDEND. 
3* : 
10 6 MOV LOW DIVIDEND, -(SP) 33THE MIGH DIVIDEND MuST BE < 1/2 
il 6 MOV HIGH DIVIDEND, -(SP) +sAS LARGE AS THE DIVISOR 
12 36 MOV LOW OIVISOR, -(SP) 
13 36 MOV HIGH DIVISOR, -(SP) 
14 3¢ JSR PC, Iv 
15 +0 RE TURN ssQUOTIENT & REMAINDER ARE ON THE STACK 
3¢ 
2? 30 STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
S@ eee eww wwe eel eee 
i9 6 TOP REMAINDER ALL ZEROS ALL ONES (MSD) 
20 30 2 REMAINDER ALL ZEROS ALL ONES (LSD) 
2 6 4 QUOTIENT ALL ZEROS ALL ONES 
3¢ 
23 3¢ 
es s@NOTE: THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE ('M.DPID’ ). 
26 032174 104412 $DBDIV: SAVREG sSTORE RO - RS 
27 032176 016604 000026 MOV 26(SP),R4 sHIGH DIVISOR WORD 
28 032202 016605 000030 HOV SP).RS 3LOW OIVISOR WORD 
0 016602 000032 MOV 32(SP).R2 ;UPPER DIVIDEND WORD 
30 032212 016603 000034 MOV 34(SP).R3 SLOWER DIVIDEND WORD 
31 032216 0 cLR Ro :CLEAR OTHER DIVIDEND REGISTERS 
33 032222 004737 032250 JSR PC.M.OPID :GO TO THE DIVIDE ROUTINE 
34 032226 010066 000030 MOV RO. 30(SP) ;REMAINDER ON Te STACK (MSD) 
35 032232 010166 000032 MOV R1.32(SP) sREMAINDER ON THE STACK (LSD) 
32236 010366 000034 MOV R3,34(SP) }QUOTIENT ON THE STACK 
37 032242 104413 RESREG ;RESTORE RO - RS 
012616 MOV (SP)+, (SP) ;MOVE RETURN UP THE STACK 
39 032246 000207 RTS PC 


GL3 
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DOUBLE PRECISION OIVISION SUBROUTINE 
; -SBTTL DOUBLE PRECISION OIVISION SUBROUTINE 
s sCALL: 
4 ‘ JSR PC .4.0PID 
‘ 
e Py DIVIDEND * RO-R1-R2-RS (RO-MSD> 
4 s DIVISOR + R4-RS (R4-MSD) 
’ 
2 sRE TURN 
‘ 
i r REMAINDER AFTER DIVISION = RO-R1 (RO=MSD) 
“ ’ QUOTIENT AFTER DIVISION © R2-R3 (R2°MSD) 
14 032250 012746 000040 ".O0PID: MOV 040, -(SP) poy FOR DIVISION CYCLES 
15 032254 010646 "Ov R4,-(SP) HIGH 
16 032256 010546 MOV RS. -(SP) sLOw ORDER DIVISOR TO THE STACK 
17 032260 000002 NEG 2( SP) sFORM NEGATI 
18 032264 005416 NEG @sP sVERSION OF THE DIVISOR 
19 032266 000002 sec 2( SP) 
032272 061601 ADD @SP .R1 
21 032274 ADS RO sPERFORM THE INITIAL SUBTRACTION 
032276 000002 ADD 2(SP),RO 
23 032302 103445 ecs * 0PSO sIF CARRY THEN OVERFLOW MAS OCCURRED 
032304 005046 CLR SP) sTHIS IS A LONGER LASTING CARRY BIT 
032306 0061035 ".0P40: ROL ae 
26 032310 0061 ROL Re 
7 032312 006101 ROL Ry 
26 032314 0061 ROL RO 
29 032316 005716 TST @sP sTEST “CARRY” INDICATOR 
30 032 001410 BEQ ".0P41 sIF NO “CARRY” THEN ADD ELSE SUBTRACT 
31 032322 005016 CLR @sP sCLEAR UP FOR NEXT TIME 
32 0352324 000002 ADD 2(SP), Ri 
33 032330 005 ADC RO sADD0 -COIVISOR) 
032332 005516 aoc @sP ’ 3sSET “CARRY” 
35 052334 000004 ADD 4(SP),.RO;<- 
032340 000404 BR ".0P42 
37 032342 060501 ™.0P41: ADD RS5,.R1 
38 032344 005500 ADC RO 5 sfotvrsan) 
032346 005516 ADC @sP . @ sSET “CARR 
40 032350 060400 ADO R4,RO 3¢- 
41 032352 005516 M.0P42: ADC asP sSET “CARRY” 
42 032354 005716 TST asP sTEST THE UPDATE INDICATOR 
43 032356 001401 BEQ +4 ’-> sIF ZERO FORGET IT 
032360 INC RS : sNO CARRY POSS HERE 
45 032362 000006 DEC 6(SP) 4<- sDECREMENT COUNTER 
46 366 005347 6GT ™.0P40 BR IF MORE TO DO 
47 032370 ROR RZ 
48 032372 103404 ecs ™.0P44 
49 032374 060501 ADD RS,R1 
032376 005500 aoc RO 
51 032400 ADO R4,RO 
S2 032402 000241 cLc 
53 032404 006103 M.0P44:; ROL 3 
54 032406 062706 000010 ADD #10,SP sADJUST STACK BY 4 WORDS 
55 12 000242 CLV 
56 032414 000207 RTS PC 
57 032416 062706 000006 ™.0PSO: ADD #6,SP 
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TEE 
Wie 





; pected [ 
ii i 
g SONU gUCERZOPARGTATPLEH yt | 


| 





’ 
se one 


Li3 


iste 1 -02C 63 00.82.28 Ome OO 


z 
‘ 








by 
Ht i. ih 5 fh b Bs i, 


ie fc een - 


tS ext al x peaihtniitenei 
fad at i 
EH OE ' | 
PRS SH LE | 
f essasssseeeseasossaees 
momen er oo grnas nS” SP RERRERREREAAAAILAT AEG 


SEAR" LTRS 1-0 vst oat 
ROT IE 10 TOE oe ORTVE SERIM MOEN DW CECI 
‘ ‘ — | CR iow ‘tnt ane parc hearcane 
$ eit = rieome ‘oma t <usie > rane TaSGAGED 
{0 © OFS AOORESS GEFOME CALLING HE ROUTINE 
Ss3030 or from. te | faoe a I Bestel 
3054 30 wy foe - ‘poet fe ore 
toes tone ot 1" : i Tye Ive SERIA MUPSER 
shiere 4D \AOORESS OF ORivE FIELo 
cies gece ars 86s iE TUR 
‘ROUTE TO THE ERRORS 
a SET ws 
: Re TUR : 
933100 982777 020000 146086 s0SPLY: os eoITLS.eSum = DOCTBTT_ ERROR TYPEOUT 1? 
033110 005037 +SET PRIORITY TO ZERO 
O33i20 See osaris 1s x00 ree, MCREMGNT "Te RETURN 
1 033126 ' ait . min 
i REPRESS WE LEE ne 5 
; MOV @ADR. RA SADORESS OF ASCII CHARACTER 
3 ; JSR «RS, CK.OCT ; : 
— pe 
ro ' 3 s0CTA 
a2 033126 121127 900060 CK.OCT: Cw — ¢R1),8°0 sLESS THAN ZERO? : 
44 033134 121127 000067 cre thi),0°? LOREATER THAN SEVEN? 
45 033140 101004 tYES -- GRANCH 
46 033142 111102 MOVE (RL), R2 {GET THE CHARACTER 
47 033144 042702 177770 BIC 7 ISTRIP AWAY THE ASCII 
48 033150 005725 TST de ’ FOR RETURN 
49 033152 000205 18: RTS RE 


i 


hee 
RHO C@neveune 


000071 


oe a ee = + + -- 


sTHIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
sAND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 


g 


(R1),@°0 
1s 
(R1),0°9 
is 
CR1),R2 


@'0,R2 
CRS)+ 
RS 


:THIS ROUTANE WILL CHECK 


sDETERMINE WHAT 
3CALL 


R 
3 


z 
0 
% 
4 
Ww 
+4 
@o 


It Is. 


sR2 © DIGIT 

sLESS THAN ZERO? 
sYES -- BRANCH 
;GREATER THAN NINE? 
:YES -- BRANCH 

3;GET THE CHAR 


AN ASCII CHARACTER TO 


sADDRESS OF ASCII CHARACTER 
sCHECK CHARACTER 


; UNKNOWN CHARACTER 

;CARRIAGE RETURN « (R1)*ADR+1 
sCOMMA # (R1)=ADR+1 

sPERIOD # (R1)=ADR+1 

sDIGIT BETWEEN O AND 7. 
sDIGIT BETWEEN 8 AND 9. 

sR2 = DIGIT * (R1)=ADR+1 


;"CARRIAGE RETURN”? 
; YES -- BRANCH 


sYES -- BRANCH 

: "DIGIT"? 

3NO -- BRANCH 
sOCTAL ? 

;DIGIT BETWEEN 8-9 
sDIGIT BETWEEN 0-7 
;PERIOD 


3 COMMA 

sCARRIAGE RETURN 

sMOVE POINTER TO NEXT CHARACTER 
sUNKNOWN CHARACTER 

;RETURN 


bid 


CZRIOBO RPO? PERF EXER MACRO V04.00 1-DEC-83 10:32:08 PAGE 83 5EQ 9169 
SSUPRL - TYPE ASCIZ, LEFT JUSTIFY 
i sTHIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
a - a ian AND FORMS A DECIMAL VALUE BINARY NUMBER IN Re. 
& 3CALL 
4 ; MOV ADR ,R1 sADDRESS OF ASCIZ STRING 
Ss 3 MOV @NUM ,R2 sMAX. MAGNITUDE OF INPUT NUMBER 
€ 3 JSR RS5,CK.DIG sCHECK DIGITS 
7 3 RETURN ADR1 3"CR” ONLY ENTERED -- R2=0 
8 3 RETURN ADR2 ;"PERIOD” ONLY ENTERED -- R2=0 
i) : RETURN ADR3 } ILLEGAL CHARACTER OR INPUT TOO LARGE -- R2=? 
i0 3 RETURN ADR4 ;"CR” -- R2 = NUMBER 
il : RETURN ADRS COMMA” -- R2 = NUMBER 
7 3 RETURN ADR6 ;"PERIOD” -- R2 = NUMBER 
1 
14 033254 010446 CK.O0IS: MOV R4,-( SP) sSAVE R4 
15 033256 010346 MOV R3,-(SP) sSAVE R3 
16 033260 010246 MOV R2,-(SP) sSAVE THE MAX. SIZE ON THE STACK 
17 033262 005002 CLR R2 sSTART WITH O 
18 033264 005003 CLR R3 
19 033266 005004 CLR R4 
20 033270 004537 033202 JSR RS,CK.CHR sCHECK ONE CHARACTER 
033274 033370 6$ sILLEGAL CHARACTER 
033276 033376 9$ sCARRIAGE RETURN 
033300 033370 6% a" 
033302 033372 7$ . 
033304 033310 1$ sDIGIT 0-7 
033306 033310 1$ sDIGIT 8-9 
21 033319 062705 000004 1$: ADD @4,R5 sSTEP RETURN POINTER PAST “CR” E€ “PERIOD” RETURNS 
22 033314 006303 2s: ASL R3 s INPUT NUMBER «2 
23 033316 010346 MOV R3,-(SP) sSAVE «2 
24 033320 006303 ASL R3 = 
25 033322 006303 ASL R3 28 
26 033324 ADD (SP)+,R3 i(e2)« (#8) = #10 
27 033326 06020 ADD R2,R3 UPDATE THE INPUT NUMBER 
28 033330 004537 033202 JSR RS,CK.CHR S CHECK ONE CHARACTER 
033334 033374 8$ ;ILLEGAL CHARACTER 
033336 033360 5$ sCARRIAGE RETURN 
033340 033356 A$ ee 
033342 033350 3$ a 
033344 033314 2s sOIGIT 0-7 
033346 033314 2s sO0IGIT 8-9 
29 033350 105711 38: TSTB CR1) sD0ES A "CR" FOLLOW THE “PERIOD” 
30 033352 001010 BNE 8s 36R IF NOT 
31 033354 005724 TST (R4)>+ s INCREMENT THE RETURN 
32 033356 005724 4$: TST (R4)> sINCREMENT THE RETURN 
33 033360 005724 S$: TST CR4)> sINCREMENT THE RETURN 
34 033362 020316 CMP R3,(SP) sCHECK THE MAGNITUDE OF THE NUMBER 
35 033364 101004 BHI 9% 36R IF ENTERED NUMBER TOO LARGE 
36 033366 000402 BR 8$ sBYPASS INCREMENT 
37 033370 005725 6%: TST CR5)-¢ s INCREMENT RETURN PAST INVALID RETURN 
38 033372 005725 7$: TST CRS)>+ s INCREMENT RETURN 
39 033374 8$: ADD R4,R5 sSETUP RETURN POINTER 
40 033376 010302 9$: MOV R3,R2 sENTERED VALUE 
41 033400 726 TST CSP )-+ sCLEAN MAX, SIZE OFF OF STACK 
42 033402 012603 MOV (SP)+,R3 sRESTORE R3 
43 033404 012604 MOV (SP)+,R4 sRESTORE R4 
44 033406 011505 MOV CRS),R5S ;GET RETURN ADDRESS 
45 033410 000205 RTS RS sRETURN 


eC ee eee 


CLR IOBO 
SSUPRI 


sO LD &inhse 


Ci4 


RPO? PERF EXER MACRO V04.00 1-DEC-83 10:32:28 PAGE 84 
TYPE ASCIZ, LEFT JUSTIFY 


000002 
36 


033436 


033466 


sTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
sUNSIGNED DECIMAL ASCIZ NUMBER. 


7 CALL 
3 MOV NUMBER, -( SP) sPUT THE NUMBER ON THE STACK 
a JSR PC, $SB20 sCALL 
3 RE TURN sADORESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
: 
sNOTE: THE PROGRAM REQUIRES THIS FORM OF ‘$SB82D’', NOT THE VERSION ON 
3 THE SYSMAC LIBRARY, REV C AND LATER 
$SB2D: MOV 2(SP),1$ s;SAVE THE BINARY NUMBER 
MOV @1$,-C(SP) 3SET THE POINTER 
JSR PC, $DB20 sCALL THE DOUBLE LENGTH CONVERT 
MOV (SP)+,2¢SP) sPICKUP THE POINTER 
RTS Pc ;RETURN 
1%: - WORD 0,0 


sTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
sUNSIGNED OCTAL ASCIZ NUMBER. 


3;CALL 
MOV NUMBER, -(SP) ;PUT THE NUMBER ON THE STACK 
JSR PC, $S820 sCALL 

RETURN sADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


NOTE: THE PROGRAM REQUIRES THIS FORM OF ‘$SB20', NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 


$SB20: MOV 2(SP),i$ sSAVE THE BINARY NUMBER 
MOV @1$,-CSP) sSET THE POINTER 
JSR PC, $0820 sCALL THE DOUBLE LENGTH CONVERT 
MOV Sag )+,2CSP) sPICKUP THE POINTER 


;RETURN 
1$: -WORD 0,0 


—_— —— -- - - i 


SEQ 0170 


D114 


CZRIOBO RPOT PERF EXER MACRO V04.00 1-DEC-83 10:52:28 PAGE AS 
TTY INPUT ROUTINE 


1 


033472 
033474 
033476 
033500 


033510 


033507 


022737 
001004 
104401 


145376 
177600 
000021 


000003 


034715 
033510 


034756 
000007 


000176 


000007 
001176 


001154 


033472 


- SBTTL 


TTY INPUT ROUTINE 


FESSOSSOSSSSHESSHHASESHSESESOESSEESESESEEEESEEEESSEEESEEESEEEEEESEEOESESS 


© 
0 
1°) 
7 


s@TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
3 


s*@CALL: 

34 JSR 

34 RETURN 

3 

$TKINT: CLR 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 


PC, $TKINT 


$TKCNT 


@$TKQSRT , $TKQIN 
$TKQIN, $TKQOUT 
@STKSRV, @OTKVEC 
ores BOTKVEC +2 


ast 
#100, 88TKS 
PC 


s¢TK SERVICE ROUTINE 


s¢THIS ROUTINE WILL SERVICE THE 


s@BY READING THE CHARACTER FROM 


seIT IN THE QUEUE. 
s¢IF THE CHARACTER IS A “CONTROL-C” (tC) STKINT IS CALLED AND 
s*UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (CTRAP) 


3 
$TKSRV: MOVB 
BIC 


CMP 

BNE 

TST 

RTI 
308: 


1%; CMP 


2s: 


TYPE 


@sTKB, -(SP) 
@*C177,(SP) 
(SP), @$XON 
30% 


(SP )+ 


07, $TKCNT 
3$ 
» $SBELL 


ssNUMBER OF ITEMS IN QUEUE 


s3TTY KEYBOARD QUEUE 


ssCLEAR COUNT OF ITEMS IN QUEUE 

ssMOVE THE STARTING ADDRESS OF THE 
ssQUEVE INTO THE INPUT € OUTPUT POINTERS. 
ssINITIALIZE THE KEYBOARD VECTOR 


AG 
; SENABLE TTY a INTERRUPT 
ssRETURN TO CALLER 


TTY KEYBOARD INTERRUPT 
THE INPUT BUFFER AND PUTTING 


3sPICKUP THE CHARACTER 
33STRIP T JUNK 

3:IS IT A RANDOM XON? 
3;BRANCH IF NO 

ee RANDOM XON OFF STACK 
a3 


33IS IT A CONTROL C? 

33BRANCH IF NO 

33s TYPE A CONTROL-C (tC) 

ssINIT THE KEYBOARD 
CLEAN UP STACK 

ssCONTROL C RESTART 

331S IT A CONTROL G? 

33BRANCH IF NO 

33IS SOFT-SWR SELECTED? 

33GO TO SWR CHANGE 


2331S THE QUEVE FULL? 
3;BRANCH IF NO 
s3RING THE TTY BELL 


SEG O171 


Ei4 


CZRJOBO RPO7 PERF EXER MACRO V0O4.00 1-0EC-83 10:32:28 PAGE 85-1 
TTY INPUT ROUTINE 


112737 


104401 
104401 
013746 
104402 


000176 
145134 


145130 
177600 
000007 


001150 


033510 
145072 


145226 


033507 


033474 


001154 


001151 


iy Sh — CHARACTER OFF OF STACK 
se 
3$: CMP (SP),@25 3:zS IT A CONTROL -S? 
BNE 328 3:BRANCH IF NO 
CLR asTKs ; DISABLE TTY KEYBOARD INTERRUPTS 
TST (SP )-+ 33CLEAN CHAR OFF STACK 
318: TSTB asTKs ssWAIT FOR A CHAR 
BPL 31$ 3?LOOP UNTIL ITS nae 
MOvB Os TKB, -(SP) 33:GET THE CHARACTER 
BIC @*C177,(SP) ssMAKE IT 7-BIT ASCII 
CMP (SP )+, 021 33S IT A CONTROL -Q? 
BNE 31% 3:BRANCH IF NO 
MOV #100, 8$TKS ssREENABLE TTY KEYBOARD INTERRUPTS 
RTI 3 sRETURN 
32%: INC $TKCNT ssCOUNT THIS CHARACTER 
CMP (SP),0140 33IS IT UPPER CASE? 
BLT 4% 33;BRANCH IF YES 
CMP 479.0878 33IS IT A SPECIAL CHAR? 
6GT 33:BRANCH IF YES 
BIC @40,( SP) asMAKE IT UPPER CASE 
4%: MOvB (SP}+_ G8 TKGIN 33AND PUT IT IN QUEUE 
INC TKQIN ssUPDATE THE POINTER 
CMP $TKGIN, @$TKQEND +360 OFF THE END? 
BNE S$ 33sBRANCH IF NO 
MOV @$TKQSRT, $TKQIN ; RESET THE POINTER 
58: RTI 3 sRETURN 


§ § PCOSOOOSCESEEERERESEESSEESEESEEDEEEDEEEEDREEESEEEEEOEEDEEEEESEE 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
s@SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
s@CALL WHEN OPERATING IN TTY INTERRUPT MODE. 

CMP @SWREG , SWR ssIS THE SOFT-SwR SELECTED 


SCKSWR: ° 
BNE 15% 33sEXIT IF NOT 
TSsTs asTKS 33I1S A CHAR WAITING? 
BPL 158% 33IF NOT, EXIT 
MOvVB OsTKB, -CSP) 33YES 
BIC @tC177,(SP) ssMAKE IT 7-BIT ASCII 
CMP (SP),07 33IS IT A CONTROL -G? 
BNE 2s 33IF NOT, PUT IT IN THE TTY QUEUE 
33AND EXIT 


PEPE AELEEMEESHEGEMAERABHADAESEAKEOREMALHEHSRARREHREBALEEP HHHARHREHDH 


s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY reg ¥ SERVICE 
s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, A RESULT OF A 
HE SOFTWARE SWITCH REGISTER BEING SELECTED. 
RUNNING IN AUTO-MODE? 


s*CONTROL-G BEING TYPED, AND Ti 


6%: CMPB $AUTOB #1 ssARE WE 
BEQ 2s ssBRANCH IF YES 
TST (SP )+ ssCLEAR CONTROL-G OFF STACK 
PC, $TKINT ssFLUSH THE TTY INPUT 
CLR asTKS ssDISABLE TTY KEYBOARD INTERRUPTS 
MOVE #1, $INTAG 1sSET INTERRUPT MODE INDICATOR 
TYPE » SCNTLG ssECHO THE CONTROL-G ( tG) 
$GTSWR;: TYPE . SMSWR ss TYPE CURRENT CONTENTS 


MOV SWREG, -( SP) ssSAVE SWREG FOR TYPEOUT 
TyPOCc 33GO TYPE--OCTAL ASCIICALL DIGITS) 


SEQ 0172 


F14 


CZRJOBO RPOT PERF EXER MACRO V04.00 1-DEC-63 10:52:28 PAGE 85-2 
ROUT INE 


TTY INPUT 


104401 
005046 


034745 
145032 
145026 
177600 
000003 
034715 
000006 
001151 


000100 
034756 


000002 
177776 
001202 


19%; 
78: 


144764 


178%: 


16%: 
.-OSABL 


5 § FFSSSSSOSEESESESSESHESEEEEEEEESEEEEEEEEEEEEEHEEEEEHSEOOO8E6840068 


TYPE 
c.R 
CLR 
TSsT8 
BPL 


33 


SR2zB88083 55289 92892 


asTKs, -(sP 
SP 


) 
@7Ci77,¢SP) 


.% 
SINTAG,@1 


178 


SES 
Ne ee 


s,PPO™PT FOR NEW SUR 
OUNTER 


ssCHAR THERE? 

s3IF NOT TRY AGAIN 
ssPICK UP CHAR 

ssMAKE IT 7-BIT ASCII 


ssIS ITA cone. -C? 
3;BRANCH IF NO 

py ECHO CONTROL - c crc) 
ssCLEAN UP STACK 


peng KEYBOARD INTERRUPTS? 


KEYBOARD INTERRUPTS 
ssCONTROL-C RESTART 


asIS ITA corral. -U? 
33:BRANCH IF NO 
asYES . CONTROL - u (ty) 
sil PREVIOUS INPUT 
ssLET’S TRY IT AGAIN 

asIS IT A <CR>? 


3 sBRANCH 
ssYES, IS IT THE FIRST CHAR? 
BRANCH IF YES 


3 sRE -ENABLE my K6D INTERRUPTS? 
3sRE-ENABLE TTY KBD INTERRUPTS 
TURN 


ssSIMULATE CONTROL -U 


SEQ 0173 


G14 


CZRJOBO RPOT PERF EXER MACRO VO4.00 1-DEC-63 10:32:28 PAGE 85-3 SEQ 0174 
TTY INPUT ROUTINE 
sends Rothe WILL INPUT A SINGLE CHARACTER FROM Tre TTv 
‘ s ’ 
1° ROCHR 1 1GET A CramacTeR FROM THE QUEUE 
: RETURN HERE s sCHARACTER ON THE STACK 
6 ssWITe Sanit seit STRIPPED OFF 
’ 
034352 011646 SROCHR: MOV (SP), -(SP) 1sPUSM OOWN THE PC an 
034354 016666 000004 000002 Ov 4(SP).2¢SP) sa THE PS 
034362 000004 cLe a(SP) +1GET READY FOR a 1ranacten 
0343466 CLR -(SP) asPUT NEW PS ON S 
034370 012746 034376 Ov 0648, -(SP) ssPUT NEW PC ON STACK 
954574 aad atl 4:P0P NEW PC AND PS 
$ 
034376 005737 033472 18: Ts? $TKCNT ssWAIT ON A CHARACTER 
° 001775 BEQ is 
0 005337 033472 DEC $TKCNT ssOECREMENT THE COUNTER 
034410 117766 177062 000004 4Ov8 Se TKGOUT AC SP) 3sGET ONE CHARACTER 
034416 005237 033476 INC ¢TKQOUT ssUPDATE THE POINTER 
° 023727 7% 033507 CMe #TKGOUT. @#TKOEND” ' OID IT GO OFF OF THE END? 
034430 001003 BNE 2s NO 
osease 012737 033500 033476 ne nov @sTKQSAT, sTKQOUT’ ; RESET THE POINTER 
s 8 TURN \ 
8 8 SSOSSOSSESSOESSESSHESESOSESSOSSESSEHSSESSEESESESEEEEEEEEESEEEESE 
sOTHES ROUTINE WILL INPUT A STRING FROM THE TTY 
a 3 
10 ROLIN ssINPUT A STRING FROM THE TTY 
10 RETURN HERE ssADORESS OF FIRST CHARACTER WILL BE ON THE STACK 
s¢ ss TERMINATOR WILL BE A BYTE OF ALL O'S 
034442 010346 SROLIN: MOV a3, -(SP) ssSAVE RS 
034444 CLR -(SP) asCLEAR THE RUBOUT KEY 
034446 012703 0346 1s: MOV @sTTYIN,RS 33GET ADORESS 
034452 022703 034715 26: CMP OSTTYINGIS..R3  ,;8UFFER FULL? 
034456 101456 BLOS &s 3:6R IF YES 
034460 104410 ROCHR 32GO READ ONE CHARACTER FROM THE TTY 
034462 112613 MOvB (SP)+,CR3) 3:GET CHARACTER 
034464 122713 000177 108: cHeB 0177,¢R3) ssIS IT A RUBOUT 
034470 001 NE S$ a8 
0344 005716 TST (SP) ssIS THIS THE FIRST RUBOUT? 
034474 001007 NE 6 +:6R IF 
034476 112737 000134 034674 MOVB = @'N,, 98 sa TYPE A BACK SLASH | 
034 rT 1 03467 TYPE 98 
034510 012716 177777 MOV @-1,(SP) 33SET THE RUBOUT KEY 
034514 3 6%: DEC +sBACKUP BY ONE 
034516 020327 034676 CMP RS, OsTTYIN + SSTACK EMPTY? 
034522 103434 BLO as 3:8R IF YES 
034524 111337 034674 “Ove (R3), 98 +sSETUP TO TYPEOUT THE DELETED CHAR. 
034530 1 1 034674 TYPE 96 3:GO TYPE 
034534 000746 BR 4 3:GO READ i 
034536 005716 St: TST (SP) saRUBOUT KEY SET? 
034540 001 BEQ 138R IF NO 
034542 112737 000134 034674 MOvB o'\,98 saTYPE A BACK SLASH 
034550 104401 034674 TYPE 
034554 005016 CLR isp s:CLEAR THE RUBOUT KEY 
034556 122713 000025 78: cmPB #25,(R3) 3381S CHARACTER A CTRL U? 
034 0010035 BNE 6s 33:8R NO 
| 


H14 


CZR.J0B RPO? PERF EXER MACRO VO6.00 1-OEC-63 10:52:28 PAGE 45-4 S£0 0175 
Ty INPUT ROUTINE 
034564 106401 034722 TYE 83—_ , SCNT ss Te & CONTROL -~v- 
034570 000726 ee is 1:60 START OVER 
034572 122713 000022 6: CPB 0-022, (A) 1315 CHARACTER A “9M? 
034576 00101 38 s1QRANCH IF NO 
034600 10501 a8 2 CRS) psCLEAR THE CHARACTER 
034602 108401 001203 rE 830 , SCL ssTVPE A CR” & LFS 
034606 i 034676 TYPE sTTvIN ssTYPE THE INPUT STRING 
034612 00071 o oe ‘8 ANOTHER CHACTER 
034614 106401 001202 a: YE , SQUES ssTYPE A? 
034620 0007 6a ; ssCLEan GUFFER a LOOP 
034622 111337 034674 38: “Ove a3),98 11ECO CHARACTER 
034626 10saot 034674 TYPE 
034632 1227 CPB = 015. (RS)» ssCHECK FOR RETURN 
034636 001 30% BNE ssL00P? IF NOT RETURN 
0 rt 177777 CLRB«- A(R) HiCLEAR RETURN (THE 15) 
034644 108401 TYPE uF suTYPE A LIME FEED 
034650 005726 TST ise). ssCLEAN RUBOUT KEY FROM THE STACK 
034652 012603 “Ov (SP )>.R3 ssRESTORE RS 
034654 011646 Ov (SP), -(SP) ssADJUST THE STACK AND PUT ADORESS OF TE 
034656 016666 000004 000002 MOV 4(SP),2¢SP) 88 FIRST ASCII CHARACTER ON IT 
012766 034676 000004 MOV osTTviNn,4( SP) 
034672 00002 atl 
034674 000 8: BYTE © ssSTORAGE FOR ASCII CHAR. TO TYPE 
034675 000 BYTE ©O as 
% STTYIN: .OLKB 15 ssRESERVE 15. BYTES FOR TTY INPUT 
034715 136 103 5 : .ASCIZ 70C7<1S><12> = 455 - 
0 isé 015 « .ASCIZ /?U/<15><12> Tt TROL “U" 
034727 136 107 015 : .ASCIZ /9G/<15><12> 45 "GC" 
034734 015 123 SMSWR: .ASCIZ <15><12>/SUR © / 
5 sTHIS ROUTINE WILL PROCESS THE (°C) CHARACTER 
5S 034756 012737 000001 001334 CTRAP: NOV .CFLAG sSET THE * FLAG 
6 034764 005237 033472 erect 4 Sas " 
7 034770 112777 000015 176476 MOV 15, @¢ TKQIN ;PUT ‘RETURN’ CHARACTER IN QUEUE 
8 034776 005237 033474 Inc $TKQIN ;UPDATE THE POINTER 
9 035002 023727 033474 033507 $TKQIN,@STKGEND ;GO OFF THE END ? 
10 035010 001003 BNE is 308 IF YES 
11 035012 012737 ©33S00 033474 MOV OSTKQSRT,STKQIN ;RESET THE POINTER 
12 0 1s: atl RETURN 


C79. J0B0 BPO7 PERF EXER MACRO VO4.00 1-JEC-63 10:52:28 PAGE Ge 


seSAVE ERROR ITEM MUPSER AD THE ACORESS OF Tre ERROR CALL 
12D GO stantre 
some wr PROVIDED BY THES ROUTINE ARE: 
soSul i wat On 
seSul IMaIsit € 
‘ Cel. ON 
+e Ennon ot 1sERRORENT AD NOERROR ITEM taPBER 
035022 033410 s€ anon 18SAvE CAR Tee ITEM BYTE SAVE LOCATION 
035026 Joeao7 ‘om + test CHANGE IN SOF T-suat 
0350380 010337 001316 rOv RS LATIN ° ATTENTION REGISTER CONTENTS 
035038 010187 901520 "Ov @1.ORVNO sORTVE MAPBER 
933080 020000 144106 te O51 3. ase : 1 pRINTOUTS ? 
035050 VE * ster CR 
035056 paspes TYPE scar ’ 
035060 oeteze ie bc. ot are : TIME 
035066 10 3? O01 76: seS FLAG 
935070 901773 8eQ 7] 1100 T LE Tre FLAG GO 10 ZERO 
0350 001116 144056 mOv OTST. GDISPLAY ;;0ISPLAY TEST MUPGER ERROR FLAG 
0351 777 144046 IT 681710. 65m 1sBELL ON ERROR? 
O55133 soseen GO117S eo, Secu Ee 
iis $0523? Son 18: Imc)sMRTIN + COUNT OF ERnons 
035120 011637 oolits mov (SP), SERREC 3sGET ADORESS OF ERROR INSTRUCTION 
ossise 162737 0008 go11s os 62, sénapc 
0351 ehz777 doicco 144000 ort ooiTon. osum Ht te wy ty ERROR p r 
O5si50 422737 00177 001130 ior exter 1sSEE IF THIS 4 
ossies a Se rie, 
035160 5737 @35410 ste s9SEE IF THES 200 In THIS ROUTINE 
035166 022737 477777 035406 eS ot tesave 15S8E WAS CPU ERR REG TIMEOUT INDICATION 
035174 901445 6EQ 0046 a8 
O35176 015746 00008 MOV tanvec, -( $0 3 8SAVE CONTENTS OF ERROR VECTOR 
935202 012737 035220 o00008 mov #10008. ssSETUP ‘TRAP’ RETURN ADORESS 
933210 013 177766 035406 mov 477766. saMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
035220 012 77777 035406 10008; MOV @-1, CPSAVE SET ERROR REGISTER TIMEOUT INDICATOR 
035226 012716 b3sese : roy s10die ts?) «SETUP RETURN ADDRESS 
035234 012637 00004 10018: MOV (SP )0,ERRVEC  , sRESTORE CONTENTS OF ERROR VECTOR 
035240 737 A77777 035406 10026; e-1 5 9SEE WAS CPU ERR REG TIMEOUT INDICATION 
035246 001420 era 10046 a8 $o 
035250 032737 000001 055406 I @BIT00,CPSAVE  4,SEE MOMLTOR GIT IS SET IN CPU ERR REG 
035256 001414 BE 10048 a8 1 Ox 
035260 042737 000001 177766 eIc @BIT00,177766 45 THe FOUND SET 
035266 113737 001130 3sai0 MOVE = SITTERS ve FOR ERROR CALL 
035274 112737 000177 0011 nove 0177 siTere 39SET SITEMB TO SPECIAL POMER FAIL POINTER 


Ji4 


C7080 8907 PER CxER FACRO ¥OE.O0 1-GEC-O8 10:82:28 PACE O-1 580 0177 | 
095308 303087 085010 1003s; Gime 18savE svCLEMR IBSAVE SO 2 TIME TrrOUGH EXITS | 
ortho 982777 e20000 someee eit = ett13.enen ss Sew Tweeout IF set 
shi SSR eras ee Tyas ee eee 
ae = 
33 a. 216: oe mets: 
cent ooio0s sl ae" oe va ie BS TS ont Ge Pn roe GIT EAncn 
rae donee Ses oan ites i {= 
emo eRe 
O55e30 900000 fosave: wom> 8 SGEATEON 19 Save Gry eanon ec cowrents 


1as6s6 | 
eoove: cous *** gerens. vem inant +k. 
go11se Ossss2 sitere.218 aii cote ES meee 


Th «eR FESSAE TYPEOUT SouT DE 


Sees eee Seas aes See Tm, 
CERRT YP, 


a ee ho. ts) a eee 
‘ tee ITER Inoee 
oo rf ° ma 
035480 015766 o01180 vy 2 SEE, De ho aa 
Hit tossoe Teor 1560, Moctm ASCIICMA OIGITS 
700 @0017? As oe ci see Tats CARON CALL IS SPECIM POMER FATL CALL 
ae" ro STESTN.OF TST veGeT merece Ae i 
10008: e . sgaanee tee POX 50 Tea? 
sate so ‘a 88 1 OM" om Fon te tmnon Tae 
see 8 Ee es : 
ee a eee 
Se eh, ie RE a ba 
SEA sess « ‘ae e Litera ngaon"SCTUS cos ven 
fam Fi Lee 
Sse Es ee Fe I nee xe re 
ee = 7: Sy ae : ano. Fon Bin es 
033556 o3ssee Tre 386 tsTYPE TuXC2) SPACES 
oases oo 000 ahs aC 7 + TwX2) SPACES 
23 “OE Be Sy eee 
O35714 O35S73O OO11S2 055406 PFECHS: .WORD PFTSTN, SERRPC.CPSAVE.O 
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721000 901 FEAF EXER MACRO VO8.00 1-OEC-83 10:32:28 Pace os S€@ 0180 
‘ QOUT ine ° 
Th 3 TE fouTDE 
ss 
SROUTIME TO TYPE ASCIZ MESSAGE. FESSAGE MUST TERMINATE uItH A OO : 
sete INSERT A AFGER OF MAL TERS AFTER A Feeo. 
ppm dh TAINS THE mArwER “Fateh On ~ REQUIRED . 
s t . 
vmres. “ AINS te wr ree 
se 
a 
tel) USING A TRAP INSTRUCTION 
*. TE ©, MESAOR ssMESAOR IS FIRST ADORESS OF Am ASCIZ STRING 
a 
fT) TvPE 
76 ME SADR 
,¢ 
STVPE: STS STPFLG ssIS THERE A TERMINAL? 
BPL as 2:08 IF YES 
MALT ssMALT MERE IF NO TERMINAL 
1s Ovo, -( 99 0 ve RO 
s pe ge 
mov acts5) ho 41GET ADORESS OF ASCIZ STRING 
CAPTENY.CENMY sis IN APT 
62 +3N0,GO CHECK FOR CONSOLE 
178 @APTSPOOL, SENVM ;; MES: TO APT 
Bea 628 3360,GO CHECK CONSOLE 
Ov RO.618 ssSETUP MESSAGE ADORESS FOR APT 
JSR PC. SaTYS Tt TO APT 
618: .WwORD 0 + sMESSAGE ss 
62: 6ITB  $@APTCSUP.SENVE 1 ;APT SUPPRESSED 
BNE 608 ssVYES.SKIP TYPE our 
26: MOVE (RO)+,-(SP) ‘8 BE TYPED ONTO STACK 
BNE 4 3:08 IF IT 1Sw'T THE T 
TST (SP)- TOR IT OFF THE STACK 
608: MOV (SP)+,RO ssRESTORE RO 
38: ADD (SP) s:ADJUST RETURN PC 
ati 3 sRETURN 
ae: ae @HT CSP) 3sBRANCH IF <HT> 
cree @CRLF (SP) s:BRANCH IF NOT <CRLF> 
TsT CSP )-« s3POP <CRo<LF> EQUIV 
TYPE ssTYPE ACR AND LF 
CLRB s:CLEAR CHARACTER COUNT 
8R 28 3:GET NEXT CHARACTER 
S$: JSR PC, STYPEC 1:G0 TYPE THIS CHARACTER 
6: CMPB 0 s«SFILLC,(SP)+ 4328S IT TIME FOR FILLER CHARS.? 
BNE $ asIF NO GO GET NEXT CHAR. 
MOV SNULL, -( SP) 3:GET @ : 
33:AND THE NULL CHAR. 
78: DECB 46-1 SP) 3:D0ES A NULL NEED TO BE TYPED? 
BLT 63 3:8R IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, STYPEC 33G0 TYPE A NULL 
cB 3300 NOT COUNT AS A COUNT 


N14 
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YPE ROUTINE 


000040 
036144 


000007 036262 


143010 


143004 
177600 
000023 


142764 
142760 


177600 
000021 _* 


142742 


000002 142734 
000015 000002 


036262 
000012 000002 


sMORIZONTAL TAB PROCESSOR 


aS 


61Ts 
BNE 
TsT 


STYPEC: « 
TSTB 


BIC 


101$: 


102$: 
10$: 


1$: CMPB 


$CHARCNT: . WORD 


$TYPEX: RTS 


10$ 
2(SP),asTPB 
@CR,2¢SP) 
1$ 

$CHARCNT 
$TYPEX 

@LF ,2CSP) 
$TYPEX 
CPC)+ 


PC 


°o 


‘ SEQ 0181 


ssREPLACE TAB WITH SPACE 
ss TYPE A SP 


ACE OFF STACK 
3sGET NEXT CHARACTER 


3:CHAR IN KYBD BUFFER? 
33:3BR IF NOT 


3;GET CHAR 
33STRIP EXTRANEOUS BITS 
:3WAS CHAR XOFF 


+sWAIT FOR CHAR 


3:GET CHAR 
3:STRIP IT 
3:WAS IT XON? 
3;8R IF NOT 


:3FIX STACK 
;;WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
3:1S CHARACTER A CARRIAGE RETURN? 

: ;BRANCH IF NO 

4 “cae CHARACTER COUNT 

33 

3:I1S CHARACTER A LINE FEED? 

:;BRANCH IF YES 

;:COUNT THE CHARACTER 

: ;CHARACTER COUNT STORAGE 


bis 


ZRIOBO RPOT PERS EXER MACRO V06.00 1-DEC-83 10:32:28 PATE &9 


BINARY 10 OCTAL (ASCII) AND TYPE 


036512 
177770 


036511 


036511 
036513 
036510 


-SBTTi BINARY TO OCTAL (ASCII) AND TYPE 


FEPOMAOHAHEREOAEEE OHO EEDEEHEEEEEEEEDSEOEHORESEAEEEEEEEEREEOEEEOEOE 

3*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s@OCTAL (ASCII) NUMBER AND TYPE IT. 

4 Hh eit -ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3¢ Ls 


36 MOV NUM, -(SP) :sNUMBER TO BE TYPED 

36 TYPOS 3;CALL FOR TYPEOQUT 

3¢ BYTE N :3N=*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3¢ -BYTE M 33M=1 OR O 

36 331*TYPE LEADING ZEROS 

38 3:0=SUPPRESS LEADING ZEROS 


3% 
:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPCS OR $TYPOC 


3s@CALL: 
3¢ MOV NUM, -( SP) ::NUMBER TO BE TYPED 
3¢ TYPON 33;CALL FOR TYPEOUT 
3° 
not +h iitaanairi HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3¢ Ls 
3° MOV NUM, -( SP) 3;NUMBER TO BE TYPED 
34 TyYPOC 3;CALL FOR TYPEOUT 
$TYPOS: MOV aCSP), -(SP) :sPICKUP THE MODE 
MOVB 1(SP), SOF ILL 33LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;:NUMBER OF DIGITS TO TYPE 
ADD @2,(SP) :sADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB 61, SOF ILL 33;SET THE ZERO FILL SWITCH 
MOvVB 96, SOMODE +1 33SET FOR SIx(6) DIGITS 
$TYPON: MOVB @5,$0CNT 33;SET THE ITERATION COUNT 
MOV R3,-(SP) 33SAVE R3 
MOV R4,-(SP) 33SAVE R4 
MOV RS, -(SP) 33SAVE RS 
++ Sees +5 ee 3;GET THE NUMBER OF DIGITS TO TYPE 
ADD 06 ,.R4 ssSUBTRACT IT FOR MAX. ALLOWED 
MOVB R4 , SOMODE 33;SAVE IT FOR USE 
MOVB SOF ILL ,.R4 33GET THE ZERO FILL od 
MGV 12(SP),R5S 33;PICKUP THE INPUT NUMBER 
CLR R3 33;CLEAR THE OUTPUT WORD 
1%: ROL RS ssROTATE MSB INTO “C” 
iste] 3% 3:GO DO MSB 
2s: ROL RS :3FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV RS,R3 
3%: ROL R3 33GET LSB OF THIS DIGIT 
DECB $OMODE 33TYPE THIS DIGIT? 
BPL 7$ 3;68R IF NO 
BIC @177770,R3 33GET RID OF JUNK 
BNE 4$ s3TEST FOR O 
TST R4 33;SUPPRESS THIS 0? 
BEQ S$ 3;368R IF YES 
4$: INC R4 33;DON’T SUPPRESS ANYMORE 0'S 


3EQ 0182 


Ci 
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BINARY TO OCTAL (ASCII) AND TYPE 


BIS #'0,R3 

S$: BIS o: RS 
MUVB R3,8$ 
TYPE 8s 

7$: DECB sOCNT 
BGT es 
BLT 6$ 
INC R4 
BR es 

6$: MOV (SP)+,RS 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV 2(SP),4(SP) 
MOV (SP )+, CSP) 
RTI 


= 
J 


33sMAKE THIS DIGIT ASCII 

:sMAKE ASCII IF NOT ALREADY 
33SAVE FOR TYPING 

3:;GO TYPE THIS DIGIT 

3;COUNT BY 1 

3;B8R IF MORE TO DO 

3;6R IF DONE 

:3 INSURE LAST DIGIT ISN’T A BLANK 
33GO DO THE LAST DIGIT 


ssRESTORE R3 
33SET THE STACK FOR RETURNING 


3; sRETURN 

3:STORAGE FOR ASCII DIGIT 

33; TERMINATOR FOR TYPE ROUTINE 
3;OCTAL DIGIT COUNTER 

33;ZERO FILL SWITCH 

ssNUMBER OF DIGITS TO TYPE 


SEQ 0183 


DiS 


CZRIOBO RPOT PERF EXER MACRO V04.00 1-DEC 63 10:32:28 PAGE 90 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


177777 


177777 177776 


. SBT TL 


s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


FF FOMAAOSSSSSHESEAASSESEEEEEEEEEESEEEEESESEEEASEEEEEEEEEEEHOESEEEEEREOE 


s*¢THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
s@REPLACED WITH SPACES. 


s@CALL: 


NUM, -C SP) 


1€SP),-10R3) 
@'0,R2 


3sPUT THE BINARY NUMBER ON THE STACK 
33GO TO THE ROUTINE 


33;PUSH RO ON STACK 


Pos. 
ssMAKE THE BINARY NUMBER POS. 
ssMAKE THE ASCII NUMBER NEG. 
33ZERO THE CONSTANTS INDEX 
ssSETUP THE OUTPUT POINTER 
33SET THE FIRST — TO A BLANK 


Cc TANT 
ssFORM THIS BCD DIGIT 
338R IF DONE 

ss INCREASE THE BCD DIGIT BY 1 


3sADD BACK THE CONSTANT 
33sCHECK IF BCD a 
:sFALL THROUGH IF 

ssSTILt > LEADING O'S? 


33sVYES--SET THE SIGN 
s3sMAKE THE BCD DIGIT ASCII 


ssMAKE IT A SPACE IF NOT ALREADY A DIGIT 
ae Nar THIS nan le IN THE OUTPUT BUFFER 


T INCREMENT 
1 CHECK THE TABLE INDEX 
:3GO DO aie OIGIT 


LSO 
CHANGE TO ASCII 
+ 1WAS THE LSD THE FIRST NON-ZERO? 


33B8R IF NO 
+ 1YES--SET THE SIGN FOR TYPING 
33SET THE TERMINATOR 
33POP STACK INTO RS 
33POP STACK INTO R3 
33POP STACK INTO R2 
33POP STACK INTO R1 


SEG 0184 


ELS 
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CONVERT BINARY TO DECIMAL AND T1PE ROUTINE 


036700 012600 MOV (SP )+,RO 
036702 104401 0367350 TYPE . SOBLK 
036706 016666 000002 000004 MOV 2CSP),4¢ SP) 
036714 012616 MOV (SP)+, CSP) 
036716 000002 RTI 

036720 023420 SOTBL: 10000. 

036722 001750 000 

036724 000144 100 

036726 000012 QO. 


ssPOP STACK INTO RO 
ssNOW TYPE THE NUMBER 
ssADJUST THE STACK 


ssRETURN TO USER 


SEQ 0185 


a a ee a ee oe er wee rm a = ee ee ee ee | ae eee + 
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APT COMMUNICATIONS RC UTINE 


-SBTTL APT COMMUNICATIONS ROUTINE 


3 FSSOOOSSESESESEESSESESEEESEEHESEEEEEEEOEE* SESSSSSEESESEEEESEEESEEE 
036740 112737 000001 037204 S$ATYi1: M™OvB #1, SFFLG 33TO REPORT FATAL ERROR 
036746 112737 000001 037202 SATY3: M™OVB 01, S*FLG 33710 TYPE A MESSAGE 
036754 0004605 BR saTYc 
pon thy 112737 000001 037204 carves “OvB 01, SFFLG 33T0 ONLY REPORT FATAL ERROR 
: 

036764 O01 MOV RO, -( SP) 3sPUSH RO ON STACK 
036766 010146 MOV Ri, -(SP) 33PUSH R1 ON STACK 
036770 105737 037202 TSsT6 sMFLG 33SMOULD TYPE A MESSAGE? 
036774 001450 BEQ IF NOT: 
036776 122737 000001 001226 CcéMPB OAPTENV, SENV a3 ATING UNDER APT? 

BNE ssIF NOT: 


$ BR 
037006 132737 000100 001227 BITS eat enema +sSHOULD SPOOL MESSAGES? 


037014 1425 BEQ ssIF NOT: GR 

037016 017600 000004 MOV @4(SP),RO ‘3 SSAGE ADDR. 

037022 062766 000002 000004 ADD @2,4(SP +;8UP RETURN ADDR. 
037030 005737 001206 18: TsT SMSGTYPE 33SEE IF DONE W/ LAST XMISSION? 
037034 001375 BNE is asIF NOT: WAIT 

037036 010037 001222 MOV RO, SMSGAD 3sPUT ADOR IN MAILBOX 


037042 105720 28: TST6 CRO)> s3F IND END OF MESSAGE 


037044 0013576 BNE 2s 

037046 163700 001222 SUB SMSGAD , RO +3SUB START OF MESSAGE 

037052 ASR RO 3sGET MESSAGE LNGTH IN WORDS 

037054 010037 001224 MOV RO, SMSGLGT 3sPUT LENGTH IN MAILBOX 

037060 012737 000004 001206 MOV 04 , SMSGTYPE ssTELL APT TO TAKE MSG. 

037066 000415 BR Ss 

037070 017637 000004 037114 53%: MOV @4(SP),48 ssPUT MSG ADDR IN JSR LINKAGE 

037076 062766 000004 ADO @2,4(SP) rT RETURN ADDRESS 

037106 0135746 177776 MOV 177776, -(SP) ssPUSH 177776 ON STACK 

037110 004737 JSR PC, $TYPE 3sCALL TYPE MACRO 

037114 4s; -WORD 0 

037116 S$: 

037116 105737 037204 108: TSTB sFFLG ssSHOULD REPORT FATAL ERROR? 
122 001416 BEQ 128 s3IF NOT: BGR 

037124 005737 001226 TST sENV s sRUNNING UNDER APT? 

037130 001415 BEQ 12% ssIF NOT: GR 

037132 005737 001206 11%: TST SMSGTYPE ssf INISHED LAST MESSAGE? 

037136 0013575 BNE 118 s3IF NOT: 


037140 017637 000004 001210 MOV S4(SP),SFATAL 4;GET 
000002 000004 #2,4(SP) 


037164 105037 037203 CLRB $LFLG ssCLEAR LOG FLAG 
037170 105037 037202 LG 33 Cl MESSAGE FLAG 
037174 012601 (SP)+,R1 ae TACK INTO R1 
037176 012600 (SP)+, ss STACK INTO RO 
037200 000207 RTS ssRE 

037202 000 sMFLG: .BYTE 0 ssMESSG. FLAG 

037203 000 #LFLG: .BYTE O s3sL0G FLAG 

037204 000 SFFLG: .BY ° ssFATAL FLAG 


GLS 
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RANDOM NUMBER GENERATOR ROUT 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 
§ LPCOOOC CEE OEESOOEOEEEESSOEEOESSOEOEEOEEEEESEEEEESEEESEE I EOSEES 


seTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
seWLTH A RANGE OF O TO 2(+33)-1. 


seCALL: 
3° JSR PC, SRAND ssCALL THE ROUTINE 
se RE TURN a sRETURN HERE THE RANDOM 
8 ssNUMBER WILL BE IN 
4 +. SMINUM, SLONUM 
037206 SRAND: 
7206 O1 Ov RO, -(SP) +sPUSM RO ON STACK 
037210 010146 MOV R1, -(SP) 33PUSH R1 ON STACK 
037212 01 MOV R2, -(SP) 33PUSM R2 ON STACK 
037214 013 037306 MOV $LONUM, 33SET RO WITH L 
037220 013701 037304 MOV SHINUM.R1 33SET Ri WITH HIGH 
037224 012 177771 MOV @-7,R2 13S€T SHIFT 
037230 006300 18: ASL ssSHIFT RO LEFT 
037232 006101 ROL al ssROTATE CARRY INTO R1 AND 
o37234 INC 33CHECK FOR 
037236 001374 BNE 1 ssCONTINUE SHIFT LU 
037240 063 037306 ADO $LONUM,RO 33AD0 NUMBER TO MAKE x 129 
037244 7 ADC R $8 Te 
037246 063701 037304 ADO SHINUM, RL ‘8 TO MAKE X 129 
037252 062 001057 ADO @1057,RO 3300 LOW CONSTANT 
037256 005501 ADC Ri 
037260 962701 047401 ADO 047401,R1 32800 HIGH CONSTANT 
7264 010037 037306 MOV RO, SLONUM ‘8 RO 
037270 010137 037304 MOV R1. SHINUM s3SAVE Ri 
037274 MOV (SP )+,R2 33POP STACK INTO R2 
037276 012601 MOV (SP)+.R1 33P0P STACK INTO Ri 
037300 0 wv (SP )+,RO 33P0P STACK INTO RO 
037302 7 RTS PC 3 ;RETURN 
037304 176543 SHINUM: .WORD 176543 
037306 123456 SLONUM: .WORD 123456 


JOBO RPO? PERF 
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0D RESTORE 80 -AS ROUTINES 


-SBTTL SAVE AND RESTORE RO-R5S ROUTINES 

‘ FO COSESOSEEOSEESESESSEEHOSESES SHESSSSSSSSESHESESSESSEESSESSEESEEESCESEEE 
s*SAVE 80-85 

50 SAVPEG 

s°UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


38 
seTOP---€ +16) 


4@ 02---€ +18) 
58 4... 
s@ +6---R4 
s@ 08---R3 
$@°10---R2 
s@e12---R1 
g@o14---RO 
037310 SSAVREG: 
037310 01 Ov RO, -(SP) 4sPUSH RO ON STACK 
$7312 O10146 MOV Ri. -(SP) 43PUSH R12 ON STACK 
057314 o10a66 MOV Ra. -( 58) ssPUSH R2 ON STACK 
7316 010346 MOV . (SP) s3PUSH RS ON STACK 
7 010846 Ov na. -(SP) 13PUSH R4 ON STACK 
037322 010546 MOW RS, -(SP) ssPUSH RS ON STACK 
7 016646 000022 MOV 22(SP),-(SP) 4,SAVE PS OF MAIN FLOW 
037330 01 900022 MOV 22 SP). -¢ $0) ssSAVE PC OF MAIN FLOW 
037334 O1 Ov SP).-(SP)  s:SAVE PS OF CALL 
03 016646 000022 mov 22(SP).-(SP) 4sSAVE PC OF 
seRESTORE RO-RS 
o 8 
@ RESREG 
7346 SRESREG: 
037346 000022 Mov (SP)+.22(SP) ssRESTORE PC OF CALL 
037352 012666 000022 HOV €SP +.22¢ SP) saRESTORE PS OF CALL 
037356 012666 000022 MOV (SP)+.22(SP) 4,RESTORE PC OF MAIN FLOW 
037362 012666 000022 MOV (SP)+.22¢SP) 4,RESTORE PS OF MAIN FLOW 
037366 012605 MOV (SP)+.R5 3sP0P STACK INTO RS 
037370 012604 MOV (SP )+,R4 33P0P STACK INTO R4 
37372 012603 Mov (SP)-.R3 33P0P STACK INTO RS 
037374 012602 MOV (SP )+.R2 3sPOP STACK INTO R2 
37376 012601 MOV (SP)>.R1 3:POP STACK INTO Ri 
037400 012600 Mov (SP )+.RO +sPOP STACK INTO RO 


& 
é 
®D 
= 
ca 
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EC -83 10:32:28 Pace Os 
Is 10: , SEQ 0189 | 
-SOTT. OOUBLE LENGIN BINARY TO CEC IPWE ASCIE CONVERT RouTINE 
Pee POOOSSSSAHY AA HHOOEEHBBOMOESEE } 
seTHIS ROUTINE WILL CONVERT & 32-817 QINSRY NUMBER TO AN UNSIGNED 
seDECIMAL (ASCII) MUPBER. THE SIGN OF .« ‘Dosey / BER MUST GE 
sePOSITIVE. | 
18 roy genre, <2) ssPOINTER TO LOW WORD OF BINARY NUP@ER 
se sr on ssTHE FIRST ADORESS OF ASCIZ 
55S ON THE STACK 
$0820: SAVREG REGISTERS 
* Ov 2CSP),R2 oor re 
Ov @s0ECvi .RO 31GET ADDRESS ascid $18 STRING 
mOv RO,2¢SP) ssPUT ADORESS OF ASCIZ STRING ON STACK 
mOVv (R2)> Ri ‘8 THE GINARY MUPBER 
037502 + ee > jer ry set 10 CONVERSIONS 
MOV OS TAU RG ot TORESS OF TEx Puan 
nov Os THPUR-2,.8S 
18: CLA as vues PARTIAL 
2s: 8 (R4),A1 SUBTRACT TEN POWER 
a2 
«Oe - eee 
3s0R IF TEN POWER TO LARGE 
INC R3 3:A00 1 TO PARTIAL 
Ba 2 4 sL00P 
36: A00 (ne)o Wt ssRESTORE SUBTRACTED VALUE 
~23 (R4)o RZ 
cp (RS )0, (RS)0 ssMOVE TO EXT TEN POWER 
ers @0,a3 ssCHANGE PARTIAL TO ASCII 
sOvB Ae (Ro) a8 
dEC pe ° as 
46: . WORD 
ae. + 3:0R IF NO 
RO)~« 33 TERMINATOR 
RE SREG ssRESTORE REGISTERS 
ats PC 3 sRETURN 
ehh eR: eoeee 331.0609 
460400 391.0608 
765 
113200 131.0607 
230 
ee 331.0606 
— 331.0605 
23420 331.0604 
gree 331.0603 
— 321.0602 
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01.0801 
631.0800 
esMESERVE STORAGE FOR ASCIZ STRING 


Sout Lenin Biweny 10 OTM ASeIT Cowen’ | 


rn 


t 


seaetutccscticszite 
EUEEEETEEE ES Hibucsavat 


gessesssessssssssssssssssss 
3 


Ss 
PPT 


° 
« 
a3 


; 


Teed Daehn ia | 


a8 


Ces2B2822R BIVSRSEE 


S53: 
Pid 


Ine MTLt COWEAT & $2-GIT UNSIGNED BINARY MBER TO AN 


ssPOINTER TO LOw WORD OF GINARY MUPOER 
y= BR 
rT ADORE SS FIRST ASCIZ CHAR. IS ON THE STACK 


gsRE 
+ POSITION THE MASK FOR THE LAST DIGIT 
a sPOSITION MUMBER FOR 

as THE NEXT OCTA OIGIT 


ALL JUNC 
as S CHAR. ASCII 
3sGO PUT IT IN THE DATA TABLE 
ssRESERVE DATA TABLE 


LiS 
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Ou OD PP ROUTINES 
Ih POER ON MO WH ROUTINES 








Owe ROUT INE 
037720 7 80072 oo00R6 my Os TLL, CoPrarvEt 1gSET FOR FAST WP 
037726 0127387 000360 00026 "Ov 0340, SOP VEC +2 5 :PRIO:7 
957750 010006 "Ov a0, -(3?) 5sPUSM RO ON STACK 
03 010146 mov m1, -(SP) ssPUSM @1 ON STACK 
037780 010286 "Ov ne. (8) 4 sPUSM R2 ON STACK 
7748 010346 mOv <3) 5sPUSM @S On STACK 
010886 Ov o* 55PUSM RO ON STACK 
037746 010506 nov et ssPUSM ®S OM STACK 
037 017706 341200 Ov (9) 5sPUSM GSUR ON STACK 
037 Ov SP, sSAvRG viSAve °? 
7 012737 05 00026 nov OPP .BEPUNVEC 4 :SET WP VECTOR 
000000 mat 
0577 000776 Be --2 1A WP 
L eeee68 
doen Ww ROUT 
937772 912787 980072 oo0GRs iPM: MoV CsTLLUP QOPURVEC 1 4SET FOR FAST DOWN 
01 706 040076 mov sSavne, SP ssGET SP 
040008 005057 040076 sSAVRG ssWAIT FOR THE TTv 
005237 0960076 18; BSAVRE ssWAIT 
berets 0015 5 10F 
040016 005337 060100 26: oO” pris sTTY WAIT LOOP & SET POWER FAIL FLAG 
040022 903773 4} 2 WAIT 
080026 012677 4461126 mov SP)+, CSun 330? STACK INTO oSuR 
040030 012605 Ov (SP de, 3sPO0P STACK Oo RS 
0400 nov (SP >, 43P0P STACK INTO R4 
os008s "Ov (SP), 83 3sP0P STACK INTO RS 
080036 012602 mov (SP )o.R2 3sP0P STACK INTO R2 
040040 0 Ov ($0). 3sP0P STACK R1 
040042 0 mov (SP > 35P0P STACK INTO RO 
040044 012737 037720 000026 Ov OsPURON. BOPURVEC 4 5SET UP POWER DOWN VECTOR 
geooss 012737 000026 Ov 0340, GOPURVEC +2 5 :PRIO: 
TYPE ssREPORT THE POWER FAILURE 
040062 040 SPURNG: .WORD MSGPUR ss:POWER FAIL MESSAGE POINTER 
040064 012 nov PC). (SP) ssRESTART AT PURUP 
040066 040124 SPURAD: . WORD 3 sRESTART 
040070 0900002 atl 
040072 000000 STLLUP: HALT s3THE POWER UP SEQUENCE WAS STARTED 
040074 000776 eR --2 33 BEFORE THE POWER DOWN WAS COMPLETE 
040076 000000 SSAVRG: 0 ssPUT THE SP MERE 
5 040100 000000 PURFLG: .WORD 0 sPOWER FAIL FLAG GOES HERE; FAILED= 1 
: 040102 200 012 042 — : .ASCIZ <CRLF><LF>/*POWER UP” AT / 
7 . 
8 sTHIS ROUTINE HANDLES THE RETURN ON POWER UP. WAIT THREE (3) MINUTES AND 
D4 300 AN AUTO RE-START TO ‘SIZMEM’. 
11 040124 005227 000000 PwRUP: INC 00 ;TTY LOOP, WAIT FOR INCREMENT 
12 040130 001375 BNE _-4 ;0F WORD 
13 040132 000005 RESET :CLEAR THE WORLD 
14 040134 005037 177776 CLR PS sCLEAR PSW 


~ 


SESEAESLASVSNAVIONA ISS rss 
UE 
3 £8 SstSXss 
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Ine 
001 Ov OSTACK, SP sSETU STACK POINTER 
001 i sRESET SECOND COUNT 
001472 ® +2 sRESET THE INTERVAL count 
033510 Jn STINT {MAKE SURE KEYBOARD RAUPT AND 
024574 ISA “CKCLK sSYSTEM CLOCK ARE STILL ON. 
stat fn ee ee 
001334 CLR oFLas 1eNena (°C) FLAG 
Ts1@ 4806 ASMLST LANNY ASSIGNED ? 
BEO es OR IF NO 
040256 TYPE MSWAIT sTYPE ‘WAITING 3 MINUTES...TO START’ 
001334 as: 1ST CFLAG sWAS (°C) TYPED? 
BNE 28 sOn IF YE 
001472 000003 che INTRVL +2, 03 sTHREE MINUTES YET ? 
aT is ;WAIT IF NOT 
000400 001332 MOV 0400 , CHGADR sFUDGE 200 START 
001520 at: Ov CORDERG, RS sCLEAR UP THE QUE AND BUFFER 
+ | 2 
002056 Ge OBLKADR RS sALL DONE ? 
BNE 38 ;QRANCH IF NOT . 
005112 we SIZMEN LOOP 
124 131 MSWAIT: .ASCII <CRLF>/TYPE *C TO ABORT/ 
127 ao a “ASCIZ <CRLF>/WAITING 3 MINUTES...TO START/<CRLF> 


Se 


Ni5 


CZRJOBO RPOT PERF EXER MACRO V04.00 1-DEC-83 10:32:28 PAGE 97 


TRAP DECODER 
i 


011646 


040372 


-SBTTL TRAP DECODER 


ee eee 


§ FOPOEOREEEESOEEESOHEEESESEEEEEESSEEESECESREEEEEREDESEDELESEEEEEEE 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADURESS 
s*O0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


3*GO TO THAT ROUTINE. 


STRAP; MOV RO, -CSP) 
MOV 2(SP),RO 
TsT -CRO) 
MOVB CRO),RO 
ASL RO 
MOV $TRPADCRO),RO 
RTS RO 


:3:SAVE RO 
33GET yy eee 


3: ;BACKUP 6B 


3:GET RIGHT BYTE OF TRAP 
3:POSITION FOR greene 


3s INDEX TO TABL 
:3GO0 TO ROUTINE 


+sTHIS IS USE TO HANDLE THE “GETPRI” MACRO 


::MOVE THE PC DOWN 
s:MOVE THE PSW DOWN 
s;RESTORE THE PSW 


$TRAP2: MOV (SP), -CSP) 
a 4(SP),2¢SP) 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


3*BY THE “TRAP” INSTRUCTION. 


; 

3 

$TRPAD: .WORD $TRAP2 
$TYPE 3 ;CALL=TYPE 
$TYPOC ;;CALL=TYPOC 
$TYPOS ;;CALL=TYPOS 
$TYPON ;;CALL=TYPON 
$TYPDS ;;CALL=TYPDS 


$GTSWR ;;CALL=GTSWR 


$CKSWR ;;CALL=CKSWR 

$RDCHR ;;CALL=RDOCHR 

$RDLIN ;;CALL=RDLIN 

$SAVREG ;;CALL=SAVREG 

$RESREG ;;CALL=RESREG 

$OSPLY ;;CALL=DISPLY 
$TERM=.-$TRPAD 


TRAP +1( 104401) 
TRAP +2( 104402) 
TRAP +3( 104403) 
TRAP +4( 104404 ) 
TRAP +S( 104405) 


TRAP +6( 104406 ) 


TRAP +7( 104407) 
TRAP +10( 104410) 
TRAP +11( 104411) 
TRAP +12( 104412) 
TRAP +13( 104413) 
TRAP +14( 104414) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER CAS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 

SAVE RO-RS ROUTINE 

RESTORE RO-RS ROUTINE 

ROUTINE TO TYPE ERROR MESSAGES 


bit 
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awit bh 


ue 


$3888388 88383388 


88383388 


-SBTTL RPO? DRIVER 


sSTORAGE FOR RPDS, RPER1, RPER2, AND RPERS 


RPSTUO: .WORD 
RPSTU1: .WORD 
RPSTU2: .WORD 
RPSTUS: .WORD 
RPSTU4: .WORD 
RPSTUS: .WORD 
RPSTU6: .WORD 
RPSTU7: .WORD 


ooooco°oc0oo 


20000000 


0,0 :0S, ER1, ERO 
0,0 30S, ER1, ER2 
0,0 30S, ER1, ER2 
0,0 :0S, ER1, ER2 
0,0 30S, ER1, ERO 
0,0 ;0S, ER1, ERO 
0,0 30S, ER1, ER2 
0,0 :0S, ER1, ER2 


é 
€ 
é 
€ 
é 
é 
€ 


€ 


sTABLE OF ORIVE ACTIVE INDICATORS (ORVACT=8 BYTES) 
sORVACT=O IF ORIVE IS IOLE 
sDRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
sDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY 


ORVACT: .BYTE 
-BYTE 
-BYTE 
-BYTE 


ocoooooo°o 


;ORIVE 
sORIVE 
sORIVE 
;ORIVE 
sORIVE 
sORIVE 
sORIVE 
sORIVE 


NOUS Wr O 


sTABLE OF ORIVE STATUS INDICATORS (ORVSTA*8 BYTES) 


sDRVSTA*O IF DRIVE IS OFFLINE OR NONEXSITENT 


sORVSTA>0 IF ORIVE IS ONLINE 
sORVSTA<O IF DRIVE IS UNSAFE 


DRVSTA: .BYTE 
-BYTE 


-BYTE 


oooooooo 


sORIVE 
sORIVE 
sORIVE 
;ORIVE 
sORIVE 
sORIVE 
sORIVE 
sORIVE 


NOU Swhr od 


sTABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
sORVTYP= © IF ORIVE IS NONEXISTENT (ORVSTA=0, ALSO) 
sORVTYP* 4 IF DRIVE IS RPO7+ 
sORVTYP= S IF DRIVE IS RPO7 MOVING HEAD OPTION 
sORVTYP=-1 IF NOT RPO7 


ORVTYP: .BYTE 


coooooocdc 


sORIVE 
sORIVE 
sORIVE 
sORIVE 
sORIVE 
sORIVE 
sORIVE 
sDRIVE 


NOU Swe O 


STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 


FOR DRIVE 
FOR ORIVE 
FOR DRIVE 
FOR ORIVE 
FOR ORIVE 
FOR ORIVE 
FOR ORIVE 
FOR ORIVE 


NOU Pwr O 


OPERATION 


SEQ 0195 


ZRIOBO RPOT PERF 


RPO” ORIVER 


OOD At Nhintin 


be pe 
ft 


040574 


040576 


040600 


040601 


$3383883 


83383888 


(16 
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sTABLE OF DUAL PORT INITIALIZATION INDICATORS 
sDPINT*O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
sDPINT<O IF INITIALIZATION IS IN PROGRESS 


DPINT: .BYTE ce) sORIVE O 
wire @ sORIVE 1 
BYTE 0 sORIVE 2 
BYTE O sORIVE 3 
-BYTE 0O sORIVE 4 
-BYTE O sORIVE 5S 
BYTE 9 sORIVE 6 
-BYTE O sORIVE 7 


; TABLE OF PENDING DUAL PORT REQUESTS 
sO0PRQS*0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
sDPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: .BYTE O sORIVE O 
-BYTE O 2 sORIVE 1 
BYTE O sORIVE 2 
-BYTE O sORIVE 3 
BYTE O sORIVE 4 
-<BYTE O sORIVE 5 
BYTE O sORIVE 6 
-BYTE 0O sORIVE 7 


3; TRANSFER WAIT “wy CTRNSWT=1 WORD) 
sTHIS IS A ONE WORD QUEVE. IT WILL CONTAIN THE ADDRESS OF 
;"OPB” OF THE I/O OPERATION. 


TRNSWT: .WORD 0 
sSEARCH WAIT KEYS (SRCHWT=1 WORD) 
sTHIS IS A ONE WORD QUEVE THAT WILL CONTAIN A KEY FOR EACH OF 
;THE DRIVES THAT ARE + pA -y A SEARCH COMMAND FOR THE I/0 
sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
sEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O. 
SRCHWT: .WORD 0O 
sRPO7 DRIVER ACTIVE FLAG CACTORV=1 BYTE) 
sACTORV=0 IF ORIVER IS INACTIVE 
sACTORV>O IF DRIVER IS ACTIVE 
ACTORV: .BYTE 0 
sSOFTWARE TIMER ROUTINE ACTIVE FLAG CACTSTR=1 BYTE) 
sACTSTR=O IF SOFTWARE TIMER ROUTINE IS INACTIVE 
sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE O 


a oo 


SEQ 0196 


Die 
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OD sit Neinlawe 


10 


040602 


040604 


040626 


177777 


177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


177777 


sSAVE REGISTERS FLAG (SAVEFG-1 WORD) 
sSAVEFG <O IF SAVE THE RHXX/RPO7 REGISTERS WHEN THE 
sOPERATION IS COMPLETED AS PER (DPB+14). 
sSAVEFG*O IF SAVE THE RHXX/RPO7 REGISTERS, AS PER 
3(0P6+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


sSEEK FLAG (SEEKFG=1 WORD) 
sSEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
sFOR A DATA TRANSFER START A SEARCH COMMAND 
sSEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
sDISREGARD THE WINDOW 


SEEKFG: .WORD -1 


sTIMEOUT TABLE (TIMER=86 WORDS) 
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD -1 sORIVE O 
-WORD -1 sDRIVE 1 
-WORD -1 sDRIVE 2 
«WORD -1 sORIVE 3 
«WORD -1 sDRIVE 4 
-WORD -1 sORIVE 5S 
-WORD -1 sORIVE 6 
«WORD -1 sDRIVE 7 


sDATA TRANSFER UNDERWAY INDICATOR (OTUW=1 WORD) 
sOTUW<O IF NO DATA TRANSFER UNDERWAY 
sOTUW=*N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


OluUw: -WORD -1 
sATTENTION BITS TABLE CATABIT=8 BYTES) 


sTHIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
sATTENTION BIT 


ATABIT: .BYTE 1 sORIVE O 
-BYTE 2 sORIVE 1 
-BYTE 4 sORIVE 2 
-BYTE 10 sORIVE 3 
-BYTE 20 sORIVE 4 
-BYTE 40 sDRIVE 5 
-BYTE 100 sDRIVE 6 
-BYTE 200 sORIVE 7 


SEU 0197 


———— 
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RPO”? DRIVER 


SOR tao 


040640 
040642 
040646 


040650 


176700 


0002: 


40 


E16 


SEQ 0198 
sSTORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RHXX/RPO7), 
sRPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 
RPADR: .WORD 176700 sRHXX/RPO7 CONTROL STATUS REGISTER 
RPVEC: .WORD 254,532. sVECTOR ADDRESS € BR LEVEL 5S 
RHEXT: .WORD 50 ;OFFSET TO RPBAE | 
| 
;SEARCH DIFFERENCE IS 1 SECTOR 
MXWNDW: .WORD 1 
sDEFINITIONS OF THE RHXX/RPO7 ADDRESS INDEXES 
RPCSl = 0 sCONTROL AND STATUS REGISTER #1 (ORIVE REG. 00) 
RPWC e2 sWORD COUNT REGISTER (NOT A DRIVE REG) 
RPBA = 4 sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
RPDA = 6 sDESIRED SECTOR/TRACK ADDRESS REGISTER (ORIVE REG. 05) 
RPCS2 = 10 sCONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
RPDS * 12 SORIVE STATUS REGISTER (ORIVE REG 01) 
RPERL = 14 sERROR REGISTER 1 (ORIVE REG. 02) 
RPAS = 16 sATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
RPLA = 20 sLOOK AHEAD REGISTER (ORIVE REG. 07) 
RPDB = 22 ;DATA BUFFER REGISTER (NOT A DRIVE REG.) 
RPMRI = 24 sMAINTAINABILITY REGISTER (DRIVE REG. 03) 
RPOT = 26 sORIVE TYPE REGISTER (ORIVE REG. 06) 
RPSN = 30 sSERIAL NUMBER REGISTER (DRIVE REG. 10) 
RPOF * 32 sOFFSET REGISTER (DRIVE REG. 11) 
RPOC = 34 sDESIRED CYLINDER ADDRESS REGISTER (CORIVE REG. 12) 
RPCC = 36 sDUMMY ADDRESS REGISTER (ORIVE REG. 13) 
RPER2 = 40 ;ERROR REGISTER 02 
RPERS = 42 sERROR REGISTER #2 (DRIVE REG. 15) 
RPECL = 44 sECC POSITION REGISTER (DRIVE REG. 16) 
RPEC2 = 46 sECC PATTERN REGISTER (DRIVE REG. 17) 
RPB = 50 sBUS ADDRESS EXTENTION REGISTER 
RPCSS = S2 sCONTROL AND STATUS REGISTER 03 


Flo 
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RPO” DRIVER 


OGY Btate 


io 


024 
49 041026 


sRHXX/RPO7 DRIVER INITIALIZATION CODE 
sTHIS ROUTINE WILL DETERMINE WHICH RPO7 DRIVES ARE 
sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
3:70 THE PROPER STATE FOR EACH DRIVE. 
sNOTE: THIS ROUTINE CALLS DRVINT 


ry 
3; CALL 

3 

3 JSR 

8 RETURN 


PC,RPINIT 


A 
sNOTE: THE *P’ OR ‘L’' CLOCK MUST BE STARTED 


"i 
RPINIT: SAVREG 
177776 MOV 
000240 177776 MOV 
046052 JSR 
040424 MOV 
040604 MOV 
1$: CLR 
CMP 
BLO 
040626 MOV 
177777 2s: MOV 
CMP 
BLOS 
040534 CLR 
040536 CLR 
040540 CLR 
040542 CLR 
040642 MOV 
043254 MOV 
040644 MOV 
MOV 
000040 000010 MOV 
CLR 
041030 38; JSR 
BR 
BR 
040534 4$: CLRB 
5$: INC 
177770 BIC 
BNE 
177776 MOV 
RESREG 
RTS 


BOPS, -(SP) 
@<5e32.>,80PS 
PC, CLRQUE 
@RPSTUO,R1 
@SEEKFG,R2 
CR1)>+ 
R1,R2 

i$ 
e0TUW,R2 
@-1,(R1)> 
R1,R2 


RPVEC+2,(R3) 
RPADR ,R 

- racer R4) 
RO,ORVINT 

4s 

S$ 
ORVSTACR1) 
R1 

#tC7,R1 

3$ 

(SP )+,@0PS 
PC 


sSAVE RO - RS 

;SAVE THE PRESENT PROCESSOR STATUS 
;CHANGE THE PRIORITY TO 5S 

sCLEAR ALL REQUEST QUEUES 

sFIRST ADDRESS TO BE CLEARED 

sLAST ADDRESS TO BE CLEARED 


sLAST ADDRESS 
s INITIALIZE 

s DONE ? 

sLOOP IF NO 


sSET ALL DRIVES TO OFFLINE 


sSETUP THE RHXX/RPO7 VECTOR 


sFIRST ADDRESS OF RHXX/RPO7 
sMASSBUS INIT 

sSTART WITH DRIVE 0 

sINIT THE ORIVE 

s‘OVA’' NOT SET OR PARITY ERROR 

sNORMAL RETURN 


3SET DRIVE STATUS TO OFFLINE 
:GO TO NEXT ORIVE 

sMASK OUT UNUSED BITS 

3BR IF MORE DRIVES TO GO 
sRESTORE THE PROCESSOR STATUS 
sRESTORE RO - RS 

;BYE-BYE 


SEG 0199 


' 
i a ES SS ce 


Glo 
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RPO” DRIVER 


OG sD Veale 


10 


177777 
023420 


040534 
040544 
000010 
000111 
010000 


045506 


000004 
020042 


024042 
177777 
000121 
045210 
57 


040554 


000010 


sORIVE INITILEZATION ROUTINE 
sTHIS ROUTINE DETERMINES 
sAN RPO7. IF IT IS, 
sIS SET TOA “1”. 


SEQ 0200 


IF A ORIVE EXIST AND IF IT IS 


A “READ-IN PRESET” IS ISSUED AND FMT22 
THEN MOL, DPR, 
s INSURE THEY ARE ALL ON A “1”, 


ORY, AND VV ARE CHECKED TO 
AND DEPENDING ON THEIR STATE, 


;ORVSTA IS SET TO THE PROPER CONDITION. 


1 
| 
;CALL 
‘ MOV RPADR,R4 ;UNIBUS ADDRESS OF RHXX/RPO7 (RPCS1) 
: MCV @DRVNUM,R1 ;ORIVE NUMBER 
, JSR RO, ORVINT :CALLED BY A JSR 
, RETURN ;ERROR OCCURRED (PARITY) 
: RETURN2 ;NORPAL RETURN 
3 
DRVINT: MOV RS, -(SP) ;SAVE RS | 
Move @-1,DPINTCRI) :SET THE DUAL PORT INITIALIZE FLAG 
MOV #10000. , TIMER(R1) ;START 10. SECOND TIMER 
ASR Ri ;ORIVE ADDRESS 
1s: CLRB = DRVSTACR1) ;START DRIVE STATUS AS OFFLINE 
CLRB  ORVTYPCR1) ;CLEAR THE ORIVE TYPE INDICATOR 
MOV R1,RPCS2(R4)  ;SELECT A DRIVE 
MOVB  111,RPCS1(R4) ;D0 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
BIT @BIT12,RPCS2(R4) ;NONEXISTENT DRIVE? 
BEQ 23 ---BRANCH 
JSR PC,SET. IE ;GO SET “IE” WITHOUT A “TRE” 
BR 6$ LEAVE THIS ROUTINE | 
28: cu DRVSTACR1) :SET ORIVE STATUS TO OFFLINE 
BIT @BIT11,RPCS1(R4) ;SEE IF ORIVE AVAILABLE 
BNE 3$ ;BRANCH IF DVA SET 
TSTB  DPINTCR1) “SOFTWARE TIMEOUT ON DUAL PORT INITIALIZE ? 
BNE 1$ ;3RANCH IF NOT 
BR 63 ;OTHERWISE EXIT 
3$; JSR RO,RD.RP ;READ THE DRIVE TYPE REG. | 
8s sERROR RETURN ADDRESS 
MOV (SP)+,RS ;PUT DRIVE TYPE IN RS | 
MOVB @5,0RVTYP(R1)  ;SET RPO7 INDICATOR 
CMP @20040,R5 ;SINGLE PORT RPO7 | 
BEQ 4a$ ;8R IF YES 
CMP @24040,R5 ;DUAL PORT RPO7 
BEQ 43 iBR IF YES 
MOVB 4,DRVTYP(R1)  ;SET RPO7+ INDICATOR 
CMP €20042,RS ;SINGLE PORT RPO7+ 
BEQ 4s ;BRANCH IF SO 
CMP €24042,R5 ;DUAL PORT RPO7+ 
BEQ 4$ ;BRANCH IF SO 
MOVB -1,ORVTYP(R1) ;SET INDICATOR TO ‘OTHER’ 
BR &¢ ;EXIT 
4s: MOV 0121, -(SP) ;D0 A “READ-IN PRESET” 
JSR RO, WRT. RP 
RPCS1L 


H16 
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010000 
045210 


045116 


040630 
045116 


177777 


167077 
000001 


177777 
040554 


000016 MOvB 


040534 MOVB 


8 
040534 MOVB 


oBIT12, -C(SP) sSET FMT16-1 


RO, WRT RP 
RO,RD.RP sREAD RPDS 
(SP)+,RS :AND SAVE IT IN RS 
S$ ;BRANCH IF ATA=0 
ATABITC(R1), RPAS(RA) ;CLEAR ATTENTION BIT 
RO,RD.RP FIND OUT WHY ATA=1 
CSP )+ 3IS IT UNSAFE? 
IF NOT 


5% :BR 
@-1,O0RVSTACR1) ;SET UNSAFE INDICATOR 
6$ 3EXxIT 


RS sCHECK MOL, DPR, DRY, AND VV 
@tC<BIT12!BITO8!B1IT0O7!BITO6>,RS 

6% ;BRANCH IF MOL, DPR, DRY, OR VV IS CLEAR 
@1,ORVSTACR1) SSET DRIVE STATUS TO ONLINE 

CRO D+ sSTEP OVER THE ERROR RETURN 


R1 sWORD “INDEX 
@-1, TIMER(R1) ;STOP THE CLOCK 
R sORIVE ADDRESS 


OPINTC(R1) 
CSP )+,RS sRESTORE RS 
RO sEXIT 


SEQ 0201 


[16 | 
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czr 
RPO” DRIVE 


ety et te) er 


59 
60 041570 


110000 


177776 
040600 


000016 
000016 


000016 


sREQUEST PRE -PROCESSOR-HANDLES SUBSYSTEM REQUEST 


P 
sCALL 


RPO?7: 


4$: 


6%: 


#1, ACTORV 
(RO) ,R2 
16(R2) 
CR2),R1 

RPADR ,R4 
DRVSTACR1) 


i$ 
RO, ORVINT 
3% 


ae 
Swern? 
R1,RPCS2CR4) 
RO, ORVQUE 
ORVACTCR1) 
7$ 

PC,OPT 

7$ 

PC.CI7 

7$ 


RO, ORVQUE 
8s 


@0,RPCC(R4) 
eBiTo6, (R4) 


Pe.ser. Ie 


"rca R1) 


BR 
eBIT15 !8I1T14,16¢ Re). 


erm CR1) 


sBR 
errs !BITO1,16¢ Ra) 


#BIT15!BIT12, 16(R2) 


s;CALL THE RPO7 DRIVER 

sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
sRETURN HERE IF QUEVE IS FULL 

sRETURN HERE IF REQUEST IS IN QUEVE OR THERE 
sIS AN ERROR CONDITION 


sSAVE THE CALLING STATUS 
s;D0N’ T ALLOW ANY RPO7 INTERRUPTS 
sSET “ACTIVE DRIVER” FLAG 
sSAVE RO - RS 
s;PICKUP THE DRIVE PARAMETER BLOCK POINTER 
sCLEAR THE STATUS/ERROR INDICATOR 
sPICKUP THE DRIVE NUMBER 
sUNIBUS ADORESS OF RPCS1 
sCHECK DRIVES STATUS 
sBRANCH IF ONLINE 
3GO INIT. THE DRIVE 
sERROR RETURN 


:IS ORIVE STATUS ONLINE? 

;68R IF NOT 

sCUTSTANDING PORT REQUEST FOR THE DRIVE ? 
3B8R IF YES 

sSELECT THE DRIVE 

sPUT THIS REQUEST IN QUEUE 

sQUEVE IS FULL 


sIS THIS ORIVE ACTIVE? 


;8R IF YES 
sCALL THE OPTIMIZER 


:GO HANDLE THE PARITY ERROR 
;PUT REQUEST IN QUEUE 


sQUEVE IS FULL 


sWRITE THE CURRENT CYL REG 
+ BIT SET ? 


3YES 
sSET THE INTERRUPT 
sRETURN 


ea Uae OFFLINE OR UNSAFE 
sSET OFFLINE ERROR INDICATOR 
E IF OFFLINE OR NONEXISTENT 


IF OFFLINE 
sREPORT DRIVE NONEXISTENT 
TO EXIT 


sDRIVE IS UNSAFE 
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61 041576 104415 7$: RE SREG sRESTORE RO - RS 

041600 005720 Ts? (RO)+ sSETUP FOR NORMAL RET 

+ 041602 0004601 BR 9% sFINISH UP, THEN EXIT 

65 041604 104413 8s: RESREG sRESTORE RO - RS 

66 041606 005720 9%: TsT CRO)+ sCORRECT THE RETURN ADDRESS 

67 041610 105037 040600 CLRB ACTORV sCLEAR “ACTIVE DRIVER” FLAG 

66 041614 012637 177776 MOV (SP )+,@0PS sRETURN “PS” TO USER LEVEL 

69 041620 000200 RTS RO sRETURN TO CALLER 


NOU Bator 


042260 
177777 
SSSag 
042750 


000100 


045506 
177776 


040576 
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K16 


“pepe saree FOR A PARTICULAR DRIVE 


CALL 


3 
° 
Py 
o 
OPT: 


18: 


2s: 


9%; 


sRESTORE RO - RS 


| 
| 
| 
| 

o0PB.R2 sADDRESS OF DRIVE PARAMETER BLOCK 

@ORVNUM,R1 {DRIVE NUMBER 

OPT ;SETUP A COMMAND | 
sSAVE RO - 

BePS, -(SP) :SAVE PROC. STATUS 

ATABITCR1), SRCHWT :CLEAR SEARCH FLAG 

DPROS(R1) ;RESET THE PORT REQ FLAG 

PC,GETREG {GET “DPB” POINTER OF REQUEST 

R2 VIS THERE A REQUEST IN QUEUE? 

as NO--BRANCH TO EXIT 

R1,RPCS2(R4)  ;LOAD THE DRIVE ADDRESS 

@111,RPCS1(R4) ;CLEAR THE DRI 

@BITi1 ,RPCSICRA) iDVA SET ? 

6$ :TO PROT REQUEST ,IF NOT 

DRVSTACR1) :IS ORIVE ONLINE? 

28 + YES- -BRANCH 

PC, POPQUE {NO--REMOVE REQUEST FROM QUEUE 

esiris:err14, 16¢R2) :SET OFFLINE STATUS/ERROR INDICATOR 

DAVSTACR1) TS DRIVE UNSAFE ? 

98 :8R TO EXIT IF NOT 

@BITIS!BIT12,16(R2) ;SET UNSAFE STATUS/ERROR INDICATOR 

98 :BRANCH TO EXIT 

@150,2(R2) :IS THE REQUEST FOR 1/0? 

38 :YES-- SRANCH 

@135,2(R2) :IS IT A DIAGNOSTIC COMMAND ? 

38 {BRANCH IF 

PC.CI4 CALL THE COMMAND INITIATOR 

98 {BRANCH TO EXIT 

oTuw :DATA TRANSFER UNDERWAY? 

5$ i8R IF YES 

SEEKFG :D0 IMPLIED SEEKS ? 

5$ :NO, 00 SEARCH 

PC,CI1 ;START A DATA TRANSFER | 

PC,CIS :START A SEARCH ON TARGET SECTOR -1 | 

98 :GO TO THE EXIT 

@-1,DPRQSCR1)  ;SET PORT REQUEST INDICATOR 

R1,R3 :SET UP TO ADDRESS WORDS 

RS ;CONVERT TO WORD INDEX 

#15000. ,TIMER(R3) ;START 15. SECOND TIMER 

@O,RPCC(R4) SET PORT REQUEST 

8$ sEXIT 

PC.CI7 sPROCESS THE PARITY ERROR 

@6iT06,(R4) © ;SEE IF ‘IE’ ALREADY SET 

98 18R IF SET 

PC, SET. IE ;SET "IE" WITHOUT A “TRE” 

(SP)+, B0PS ;RESTORE PROC. STATUS 
| 
| 
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58 042064 000207 RTS PC 


L16 


SE@ 0205 


hbo? 


; 


Neo O@Ne Vem 4 


< 


M16 
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sCOMMAND INITIATOR 


CI: 


1s: 


2s: 


000156 CI2: 


1%: 
CI3: 


CALL 


B38 


33855 SQgTERIIIEG 


JSR 
RPDA 


@ORVNUM,R1 
PC,C1???? 


Ril, 5 Stas) ) 


04 ,R3 
2 ,R4 
CR3)+¢, CR4)+ 


CR3)+,CR4 D> 
CR3)+,-CSP) 
RO,WRT. 


RP 
CR3)+,-CSP) 
RO, WRT .RP 
PC,.CI2 
2(R2), -CSP) 
RO,WRT. 


R1,0TUW 
crs 


SCO) PELE? 
#B1T15, -CSP) 
° RP 
PC 
RPADR ,R4 


R1,RPCS2CR4) 
12(R2),-CSP) 


sADDRESS OF ORIVE PARAMETER BLOCK 
NUMBER 
= CIi, CI3, OR CI4 


= DATA TRANSFER 
SEARCH REQUESTED BY DATA xFER 
NO DATA TRANSFER 


sREMOVE REQUEST FROM “ORIVES WAIT” QUEUE 
;PUT REQ. IN ome WAIT QUEUE 


3;SELECT 

sIS ITA DIAGNOSTIC COMMAND ? 
sBRANCH IF NOT 

;GET THE ROUTINE NUMBER, PARAMETERS 
:SET THE DIAGNOSTIC MODE BIT 

;WRITE THE RPMR1 REG 


;LOAD THE COMMAND AND EXIT 
sDESIRED en COUNT 


sLOAD BUFFER ADDRESS 

sLOAD SECTOR AND TRACK 

sCALL THE LOADC(WRITE) ROUTINE 
s INDEX OF REGISTER TO LOAD 
sERROR RETURN ADDRESS 

sLOAOD CYLINDER ADDRESS 


sSEE IF BIT1S SHOULD BE SET IN RPMR1 
sLOAD “COMMAND+GO”, “A17EA16", AND “PSEL” 


sSET “DATA TRANSFER UNDERWAY ” 


sDATA XFER TO FE CYLINDERS ? 
;8R IF NO 

sSET THE DIAGNOSTIC MODE BIT 
sWRITE THE RPMR1 REG 


sRPCS1 ADDRESS 
sSELECT ORIVE 
sDESITRED CYLINDER ADDRESS 


SEQ 0206 


CZRIOBO RPO? PERF EXER 
RPO? ORIVER 


04227° 


004037 
34 


012746 
004037 
000000 


042750 
156137 
000550 


013704 
010164 
116203 
122703 
001007 
016246 
004037 
000006 


042750 
000403 


122703 
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04521C 


042232 


6v0010 
04065C 


000002 


000011 
045210 


000131 
045210 


040630 
040640 
000010 
000002 
000131 


000010 
045210 


000105 
000012 
045210 
042232 


000115 
045116 
000001 
045210 


000107 
000117 


040576 


1$: 


CI4: 


1$: 
2s: 


3%: 


4$: 


Bf 


28 PAGE ‘06-1 


RO,WRY RP 


Pc,Cle2 


10(R2),R3 
MXWNOW ,R3 


110R2;,10SP) 
RO,WRT. 


RO,WRT.RO 


ATABITCR1),SRCt IT 
cIs 


RPADR ,R4 
R1,RPCS2CR4) 
2(R2),R3 

+ R3 
10(R2), —* 
RO,WRT .RP 

es 

#105,R3 

3$ 

12(R2), -CSP) 
RO,WRT.RP 
PC,CI2 

cI6é 

#115,R3 

ay 


RO,RD.RP 


1(R2),(SP) 
T.RP 


;SEE IF B1T1S SHOULD BE SET IN RPM 1 


sPICKUF SECTOR ADDRESS 

sBACKUP BY MAX. SEmRCH FOR I/0 WINDOW 
;BR IF >= O 

sADC MAXIMUM SCCTOR COUNT BALK 
sCOMB"NE THE ADJUSTED SE“TOR WITH 
s;THE DESIRED TRACK 

3LOAD DESIRED TRACK E SECTOR 


;START A SEARCH 


sSET “SEARCH “WAIT” KEY 


sRPCS1 ADDRESS 

sSELECT ORIVE 

sPICKUP THE REQUESTED COMMAND 
3IS IT A SE4RCH COMMAND? 
s;BRANCH IF NO 

;LOAD DESIRED TRACK & SECTOR 


3GO LOAD CYLINDER 


3IS IT A SEEK COMMAND 
s;BRANCH IF NO 
3LOAD DESIRED CYLINDER 


;SEE IF BIT1S SHOULD BE SET IN RPMR1 


+ IT AN “OFFSET” COMMAND ? 

é 

MERGE hong OFFSET VALUE INTO RPOF 
sBUT DON‘ T CHANGE THE UPPER 


sBYTE WHEN LOADING THE 
;REGISTER CRPOF ) 


3GO START THE COMMAND 


sIS IT . Ma een COMMAND ? 
sBRANCH IF YES 

sIS ITA RETURN TO CENTER? 
s;BRANCH IF YES 


SEQ 0207 


Cl 
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RPO” ORIVER 


122703 


001405 


012762 
012746 


000143 
045116 


000001 
045210 


104000 
000111 


000001 


042620 


042620 


000016 


000016 


5$: 


68: 
7$: 


Bs: 
9$: 


10%: 
11%: 


12$: 


13$: 
cIS: 


CI6: 


CI7: 


1$: 
CI7B: 


ee 

RO, RO.RP 
1(R2),1¢SP) 
RO,WRT RP 
12$ 

@141,R3 

10$ 
6(R2),R3 
10(R2),9% 


11(€R2),RS 
RO,RD.RP 


(SP )+,CR3)+ 
RS 


R1 

— » TIMER(R1) 
@1,ORVACTCR1) 
PC 


PC 
oBITIS!BIT11, 16(R2) 


#111, -(SP) 


sIS ITA my FORMAT” COMMAND? 
BRANCH IF NO 


sREAD THE OFFSET REGISTER 


sCOMBINE “FMT16”,"ECI”, AND “HCI” 


3IS IT A “GET REGISTER” COMMAND? 
sBRANCH IF 
OF WHERE 


NO 
;POINTS TO 1ST ADDRESS 
:TO PUT THE REGISTER(S) 

sINIT. THE INDEX FOR THE FIRST REG. 
; INDEX OF LAST REG. TO MOVE 

sREAD RHXX/RPO7 REGISTER 

s INDEX OF REG. TO READ 


3GET THE CONTENTS OF RHXX//RPO7 REG. 
sLAST REG. BEEN READ? 

sGET OuT IF YES 

s INCREASE THE INDEX BY 2 
sLOOP--MORE TO READ 


3IS IT A “SELECT DRIVE” COMMAND? 
sBRANCH IF YES 
sLOAD THE COMMAND 


sREMOVE REQ. FROM QUEUE 
iSET THE “DONE” BIT 
sSAVE RHXX/RPO7 REGISTERS ? 


;BR IF NO 

:YES--GO SAVE THE REGISTERS 
sRETURN TO USER 

sSTART 10. SECOND TIMER 


sSET THE DRIVE ACTIVE 
sRETURN TO THE USER 


sLOAD THE COMMAND 


sANYTHING IN QUEUE ? 

sBRANCH IF QUEVE IS THERE 

sOTHERWISE EXIT 

sSET “PARITY” ERROR INDICATOR 


100 A “ORIVE CLEAR” 


SEQ 0208 


CZRJOBO RPO7 PERF EXER 
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012762 
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SEQ 0209 


045210 JSR RO,WRT RP 
cis 
046130 JSR PC ,EMPTYG sEMPTY THE QUEUE 
040564 CLRB DPRQ@S(R1) sCLEAR THE PORT REQUEST FLAG 
040524 CLRB DRVACTCR1) sORIVE IS IDE 
040574 CMP R2, TRNSWT sIF THIS ORIVE MAD AN I/O REQUEST 
BNE 1$ sIN PROGRESS CLEAR ALL OF THE FLAGS 
040574 CLR TRNSWT 
177777 040626 MOV @-1,0TUW 
1$: RTS PC 
cI8: SAVREG sSAVE RO - RS 
as at 
L 
040524 18: TSTB DAVACTCRL) sORIVE ACTIVE? 
NE sBRANCH IF IN ACTIVE 
040564 TSTB DerascR) sPORT REQUEST 
BEQ sBRANCH IF NOT 
040574 2s: MOV TRNSUT, R2 sGET “OPB” FROM THE “TRANSFER WAIT” QUEUE 
040626 CMP R1,0TUW ;DI0 THIS ORIVE HAVE AN I/0 IN PROGRESS? 
BEQ 3% sBRANCH IF YE 
046224 JSR PC ,GETREQ sGET THE DPB POINTER 
38: TST Re sQUEVE ENTRY FOR DRIVE ? 
BEQ S$ 3;BR IF NOT 
010000 000010 BIT + aaa RPCS2(R4) ;‘NED’ SET ? 
BEQ :BR IF NOT 
100002 000016 MOV esIT15!81T01, 16(R2) sSET ‘ORIVE NON-EXISTENT’ INDICATOR 
BR S$ s CONTINUE 
102000 000016 4%: MOV @BIT1S!BIT10,16(R2) ;SET “NON-CLEARABLE PARITY” ERROR INDICATOR 
177777 040606 5$: MOV @-1,TIMERCR3)  ;STOP THE TIMER 
040524 CLRB ORVACTC(R1) sSET “DRIVE ACTIVE” hay IOLE 
040564 CLRB OPRQS(R1) sCLEAR PORT REQUEST FLAG 
040626 CMP R1,0TUW iTS THIS ORIVE SETUP FOR A TRANSFER 
BNE 6% sBR IF NOT 
177777 040626 MOV @-1,0TUW sRESET THE INDICATOR 
040574 CLR TRNSWT sCLEAR THE TRANSFER QUEUE 
6%: INC R1 sMOVE TO THE NEXT DRIVE 
000002 ADD @2,R3 
177770 BIC @tC7,R1 
BNE 1% sBRANCH IF MORE DRIVES 
177777 040626 MOV at Fa sNO DATA TRANSFERS UNDERWAY 
040574 CLR TRNSWT sCLEAR THE ‘TRANSFER WAIT’ QUEUE 
046052 JSR PC ,.CLRQUE :CLEAR ALL OF THE REQUEST QUEUES 
000040 000010 MOV @8ITOS,RPCS2(R4) 3:00 A MASSBUS INIT. 
BR 8s s CONTINUE 
046130 7$: JSR PC .EMPTYQ sCLEAR THE DRIVE'S QUEUE 
040534 CLRB ORVSTACR1) sSET DRIVE TO OFFLINE 
040544 CLRB ORVTYPCR1) sCLEAR THE DRIVE TYPE INDICATOR 
045506 8$: JSR PC,SET.IE sSET “IE” WITHOUT “TRE” 
RESREG sRESTORE RO - RS 
RTS PC sRETURN 


CZRJOBO RPO? PERF EXER 
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OQOnOUStnfor 


112737 
104412 
013704 
013701 
002402 
004737 
004737 
104413 
105037 
000002 


El 


MACRO V0O4.00 1-OEC-83 10:32:28 PAGE 107 


s INTERRUPT SERVICE ROUTINE 


000001 040600 ISR: MOVB #1, ACTORV sSET “ACTIVE ORIVER” FLAG 

SAVREG sSAVE RO - RS 
040640 MOV RPADR ,R4 ; ADDRESS OF RPCS1 
040626 MOV OTUW,R1 sGET “DATA TRANSFER UNDERWAY” INDICATOR 

BLT is sBRANCH IF NO DATA TRANSFER UNDERWAY 
043404 JSR PC,1TD sCALL TRANSFER DONE 
043630 1$: JSR PC,.SC sCALL SPECIAL CONDITIONS 

RESREG sRESTORE RO - RS 
040600 CLRB ACTORV sCLEAR “ACTIVE DRIVER” FLAG 

RTI sRETURN 

sFORCE WRITE CHECK ROUTINE 
001506 WC .HIK: ase ~~ s00 WRITE CHECK ? 
é 

000161 000002 ty + mancceenctatemnaar’ ™ a COMMAND A WRITE COMMAND ? 
046150 JSR RO, ORVQUE sPUT INTO THE QUEUE 

BR is sBRANCH IF QUEVE IS FULL 
000016 CLR $TATUSC(R2) sCLEAR ‘DONE’ BIT IN DPB 
000166 000027 MOVB $RPCS1(R2), $PREVO(R2) ; PREVIOUS COMMAND 
000012 000034 MOV SCYL(R2), SPREVA+2(R2) ;PREVIOUS ee ADORE SS 
000010 000032 MOV $SEC(R2), SPREVACR2) sPREVIOUS SEC , TRK ADDRESSES 
000024 CLRB $CODE(R2) sCHANGE WRITE DATA TO tntte CHECK DATA 
000151 000002 - ag ees ext sCHANGE FUNCTION CODE TO WRITE CHECK 

s ; 


5EQ 0210 


CZRJOBO RPO? PERF EXER 
RPO” DRIVER 


ODAAUS infor 


004737 


012714 
000207 


000000 


Fi 
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043626 


040524 
177777 


177777 


040626 
040606 


000016 


000016 


000016 


000012 


000016 


s TRANSFER DONE ROUTINE 


TO: 


3$: 


4$: 


PERM: 


CLR 


PERM sCLR PERMENANT ERROR FLAG 
DRVACTCR1) sSET ORIVE ACTIVE roost TO ILE 
——e 3NO DATA TRANSFERS UNDERWA 
a sCANCEL TIMEOUT 

TRNSWT ,R2 :GET “DPB” FROM THE “TRANSFER WAIT” QUEUE 
TRNSWT s TRANSFER WAIT QUEVE--CLEAR QUEUE 
@BITO7, eh te 3SET DONE 

R1,RPCS2CR 4) +SELECT THE ORIVE 

RO,RO.RP 3s TRANSFER ERROR( TRE=1)? 

(SP )> 

43 3BR IF VES 

SAVEFG sSAVE RHXX/RPO7 REGISTERS ? 

1s :6R IF NO 

PC, SVRHXX + YES- -SAVE THE REGISTERS 
#135,2(R2) ;I€ ee TIC COMMAND ? 


es BR NOT 
ATABITC(R1), RPAS(R4) sRESET THE ATA BIT 


PC.WC . HK sSEE IF WRITE CHECK TO BE PUT IN QUEVE 
PC .GETREQ sGET OPB POINTER 

R2 SENTRY FOR ORIVE ? 

3$ :BR IF NOT 

PC,OPT SCALL OPTIMIZER 

PC sRETURN 

#113,(R4) ;RELEASE THE ORIVE 

PC sRETURN 

y+ ht 4 a Soa 16(R2) ;SET DATA ERROR FLAG 

PC .EMPTYQ sEMPTY THE “DRIVE'S WAIT” QUEUE 
PC, SVRHXX SAVE = RHXX/RPO7 REGISTERS 
040111,(R4) sISSVUE A “DRIVE CLEAR“ 


@BIT14,RPOS(R4) ;OID ERROR BIT CLEAR? 
S$ sBR IF YES 


PERM sSET ERROR FLAG 
ATABITCR1), RPASCR4) sCLR ATA BIT 

PC sRET 

#113,(R4) sISSUE A RELEASE TO THE ORIVE 
PC ;RETURN 

t¢) sPERMENANT ERROR FLAG 


SEG O211 
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1 ;SPECIAL CONDITION ROUTINE 

3 043630 116403 000016 SC: MOVB = RPAS(R4),R3 READ “APAS” 8 REGISTER 

4 043634 001013 BNE 2s ;BRANCH IF ANY ‘ATA’ BITS SET 
5 043636 004037 045116 JSR RO,RD.RP ;READ CONTROL AND STATUS REGISTER 

6 043642 RPCS1 
7 043644 043036 C18 

8 043646 106126 ROLB (SP). :IS “IE“*1? 

9 043650 100404 BMI is :YES, NO DRIVES TO CHECK 

10 043652 000401 BR 1$-4 ;BRANCH OVER ‘ BRANCH WITH ‘NOP: 
11 sIF ERROR REPORT IS DESIRED 
12 043654 104001 EMT 1 IREPORT ILLEGAL INTERRUPT 

13 043656 004737 045506 JSR PC, SET. IE 3SET INTERRUPT ENABLE 

14 043662 000207 1s: RTS PC RETURN 

16 043664 005046 2%: CLR -(SP) sPROCESS ALL DRIVES THAT HAVE 

17 043666 110316 MOVB R93, (SP) }STORE ATA BITS ON STACK 

18 043670 005001 CLR R1 ;SETUP R1 € RB TO CHECK DRIVE O 

19 043672 012703 000001 MOV 01.R3 

20 043676 030316 SC3: BIT R3.(SP) :IS THIS ATA BIT SET ? 

21 043700 001005 BNE Scs ;8R IF YES 

22 043702 005201 sc4: INC R1 MOVE TO THE NEXT ORIVE 

23 043704 106303 ASLBsaRB ;ANY MORE DRIVES TO CHECK ? 

24 043706 001373 BN= Sc3 ;8R IF YES 

25 043710 005726 TST (SP )« ;CLEAN OFF THE STACK 

26 043712 000207 RTS PC 

28 043714 105761 040564 SCS: TSTB  OPRQSC(R1) :IS THERE PORT REQUEST OUTSTANDING ? 

29 043720 001402 BEQ 1s 38R IF NO 

30 043722 000137 044264 JMP SC1i3 sSTART THE OUTSTANDING COMMAND 

32 043726 105761 040534 1s: TSTB ORVSTACR1) :IS THIS ORIVE ON-LINE ? 

33 043732 003011 BGT 23 38R IF YES 

34 043734 004737 046224 JSR PC,GETREQ ;GET DPB POINTER 

35 043740 004737 045342 JSR PC; SVRHXX sSAVE THE RHXX/RPO7 @RESISTERS 

36 043744 004737 044200 JSR PC,SC12 ;SAVE RPDS, RPERL R2 AND RPERS 

37 ALSO DO A DRIVE ‘Bare CORVINT ) 

38 043750 105761 040534 TSTB ORVSTACR1) ;0ID ORIVE COME ON-LINE ? 

39 043754 003405 BLE 3% ;8R IF NO 

40 043756 105761 040524 2%: TSTB  DRVACTCR1) ;ORIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 

41 043762 001020 BNE SC6 ;0R IF EITHER 
42 043764 004737 044200 JSR PC,SC12 ;SAVE RPDS, RPER1, RPER2 AND 

43 3ALSO DO A ORIVE INIT (ORVINT) 

44 043770 105761 040534 38: TSTB DRVSTACR1) ;CHECK ON DRIVE'S STATUS 
45 043774 100412 BMI ;0R IF UNSAFE 
46 043776 012746 000111 MOV #111, -(SP) SORIVE CLEAR 
47 044002 004037 045210 JSR RO,WRT RP ;WRITE THE COMMAND INTO RPCS1 
48 044006 000000 RPCS1 ;REGISTER INDEX 

49 044010 044052 Scé ‘PARITY EXIT ADDRESS 

SO 044012 116164 040630 000016 MOVB  ATABITCR1), RPAS(R4) sCLR ATTN BIT 

51 044020 000240 NOP 

35 044022 000727 4s: BR sca :CHECK FOR MORE ORIVES 

57 044024 006301 SC6: ASL R1 ;SETUP TO ADDRESS WORDS 

58 044026 012761 177777 040606 MOV @-1,TIMER(R1) STOP THE TIMER 

59 044034 006201 ASR R1 ;RESTORE THE DRIVE ADDRESS 
60 044036 004737 046224 JSR PC ,GETREQ ;GET THE OPB POINTER FROM THE QUEUE 


eset econ oan 
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000010 MOV R1,RPCS2(R4) sSELECT DRIVE 
044102 JMP scil sPROCESS THE SEARCH 
040524 scs: TsTs DRVACTCR1) sIS ORIVE IDOLE? 
BEQ 1% 3 YES- -BRANCH 
046224 JSR PC ,.GETREQ iGET OPB POINTE 
042750 JSR Pc,.cI7 sPROCESS THE PARITY ERROR 
BR 2s 3s CONTINUE 
042764 1$: JSR PC,.CI768 sPROCESS THE UNCORRECTABLE PARITY ERROR 
043702 2s: JMP sc4 sCHECK MORE DRIVES 
040524 SCil: CLRB ORVACTCR1) sSET ORIVE IDLE 
040630 040576 BITB ATABITCR1),SRCHWT ;DOING A SEARCH OPERATION FOR 
sAN 1/0 COMMAND? 
BNE 1% sBRANCH IF YES 
046246 JSR PC ,POPQUE REMOVE REQUEST FROM QUEUE 
000200 000016 BIS @BIT07,16(R2) sSET “DONE” BIT 
040602 TST SAVEFG sSAVE THE REGISTERS? 
BPL 1$ 36R IF NO 
045342 JSR PC , SVRHXX 3 YES--SAVE ALL OF THE RHXX/RPO7 REGS 
040630 000016 1%: MOvVB ATABIT(R1),RPASCRA) sCLEAR ATTENTION BIT 
040630 040576 + as eer ae ama IMPLIED SEEK SET 
sWORD 
177777 040606 MOV #-1, TIMERC(R1) :STOP CLOCK 
ASR R1 sRESTORE R 
041622 JSR PC,OPT sSTART A REQUEST 
043702 JMP sc4 sCHECK FOR MORE ORIVES 
000010 SCile2: my oe sSELECT ORIVE 
ASL RL 
ASL R1 
000012 040424 MOV RPDS(R4) , RPSTUOCR1) sSTORE ORIVE STATUS 
000014 040426 MOV RPER1(CR4),RPSTUO+2(R1) ;STORE ERROR REG @1 
000040 040430 MOV RPER2(R4),.RPSTUO+4(R1)  sSTORE ERROR REG 62 
000042 040432 wo ~ ante lchtaaatiarattha sSTORE ERROR REG 03 
ASR R1 
ASR R1 
041030 JSR RO,ORVINT sINIT. THE STATE OF THE ORIVE 
BR 1$% 3s TAKE ERROR EXIT 
RTS PC sRET 
1%: TST CSP )-« sCLEAR THE STACK 
BR sce sPROCESS THE PARITY ERROR 
000010 SCi3: MOV R1,.RPCS2CR4) sSELECT THE ORIVE 
040630 000016 MOvB ATABITCR1), RPASC(R4) sCLEAR THE ATTENTION BIT 
040554 1%: TSTB OPINTC(R1) sINITIALIZING THE ORIVE ? 
BEQ 2s 36R IF NOT 
040554 CLRB OPINTCR1) iCLEAR THE INIT INDICATOR 
041030 JSR RO,ORVINT 3GO INIT THE ORIVE 
sDUMMY PARITY ERROR RETURN 
040534 TSTB ORVSTACR1L) sORIVE ONLINE ? 
BGT 2s 3B8R IF YES -- START ORDER 
TST R2 sQUEVE ENTRY FOR THE DRIVE 
BEQ 4$ 368R IF NOT 


SEQ 0213 


' 


—2 ee 
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PC ,GETREG sGET OPB ADDRESS 

egitis:erria, 16(R2) s INFORM USER THAT ORIVE OFFLINE 
PC, SVRH sSAVE THE REGISTERS 

PC: BOPQUE SREMOVE THE QUEUE 

OBIT11,RPCS1(R4) sO0VA SET ? 

3$ THEN CALL OPT 

PC, SET. IE 

as 

PC,OPT sSTART THE REQUEST 

sc4 sPROCESS OTHER ORIVES 


J1 
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RPO? ORIVER 


OBNOUStnfor 


sRPO7 TIMER ROUTINE 


3;CALL 


044402 005737 040600 RPTMR; 
044410 112737 000001 040601 


044424 005763 040606 18: 
002406 

044432 166663 000002 040606 

044446 005201 2s: 


044460 1044135 3%: 
012616 4$: 


JSR PC ,.RPTMR 


TST ACTORV 
BNE 


as 

vB #1,ACTSTR 
SAVREG 
CLR R1 
CLR R3 
TST TIMERCRS) 
BLT ‘ 
SUB 2(SP), TIMERCRS) 
BGT es 
JSR PC.STO 
INC R1 
TST CR3)+ 
CMP 06. ,R1 
BGT i$ 
RESREG 
CLRB ACTSTR 
MOV (SP)+, (SP) 
RTS PC 


sELASPED TIME IN MILLISECONDS ON THE STACK 
sCALL RPO7 TIME ROUTINE 


sCHECK “ACTORV € ACTSTR* 
sIF NON ZERO EXIT 
sSET “ACTSTR*” 


sSAVE RO - RS 

sSTART WITH ORIVE 0 

sIS THE TIMER RUNNING? 
sBRANCH IF NO 

sCOUNT THE INTERVAL 

BR IF NO SOFTWARE TIMEOUT 


sCALL SOFTWARE TIMEOUT ROUTINE 
sMOVE TO NEXT ORIVE 


sOUT OF ORIVES? 
sBRANCH IF NO 

sRESTORE RO - RS 

sZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
sADJUST THE STACK 

sRETURN 





K1 
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RPO” DRIVER 


OBNOUS whore 


010146 


100400 
040524 
177777 


000010 
177777 
040574 
046052 


000016 
040630 


000016 
000010 


000016 


sSOFTWARE TIMEOUT ROUTINE 


F 
;CALL 
3 


i$: 


2s: 


3$: 


63: 


_ ee ee ee ee —— 


: 
sNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


@ORVNUM,R1 sORIVE NUMBER 
PC,STO sSOFTWARE TIME ROUTINE 
R1,-CSP) sSAVE R1 
3, -CSP) sSAVE RS 
RPADR ,R4 sGET ADDRESS OF “RPCS1” 
R1,RPCS2CR4) iSELECT THE ORIVE 
RO,RD.RP sREAD THE ORIVE STATUS REGISTER 
(SP )-+ sIS “ORY“*1? 
6$ s6R IF YES 
DPINTCR1) sTRYING TO INTIALIZE THE ORIVE 7? 
6$ sBR_ IF YES 
_ CR1) oh a > a PORT REQUEST FOR THE ORIVE ? 
i 
TRNSWT ,R2 + “DPB” FROM THE “TRANSFER WAIT” QUEVE 
R1,0TUW TRANSFER UNDERWAY ON THIS ORIVE? 
2s ;BRANCH IF YES 
PC ,GETREQ sGET DPB ADDRESS 
@61T15!81T09, 16h) 3SET 
PC, SVRHXX 7 REGISTERS 
@6iTOS, RPCS2(RS). “INIT” THE MASS BUS 
ORVACT(R1) sORIVE IS IDLE 
as sSTART WITH DRIVE O 
RO,ORVINT sINIT. THIS ORIVE 
9% sPARITY ERROR RETURN 
ORVACTCR1) sORIVE IOLE BEFORE THE INIT.? 
S$ 3 YES- -BRANCH 
TRNSWT ,R2 sGET “DPB” FROM THE "TRANSFER WAIT” QUEUE 
OTUW,R1 sWAS A DATA TRANSFER UNDERWAY ON THIS DRIVE? 
4S met ne ore 
PC, ,GETREQ T THE DPB POINTER FROM QUEUE 
+ AE tS th r6cha) sINFORM USER OF INIT. 


ORV 

@-1, TIMERCRS) 
(R3)+ 

Ri 


RPASCR4),RS 
+a R1),R5 


T DRIVE ACTIVE TO IDLE 
sSTOP THE TIMER 

sUPDATE THE INDEX 

s INCREMENT THE ORIVE NUMBER 
SLAST ORIVE BEEN CHECKED? 
sNO--LOOP 
sNO DATA TRANSFERS UNDERWAY 
sCLEAR TRANSFER WAIT QUEUE 
iCLEAR ALL REQUEST QUEUES 
3 


sREAD ATTENTION REG 
sIS ATTENTION FOR THIS DRIVE UP ? 
s YES- -BRANCH 
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044722 


105761 
001031 


Li 
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040554 
040564 


177777 


043036 


140000 


177777 
040564 
046224 


040606 


040606 


000016 


040606 


000016 


7$: 


9$: 


10$: 


11%: 


12$: 
13%: 


OPINT(R1) 
10$ 
OPRQS(R1) 
138 
R1,0TUW 
i$ 
RO,RD.RP 
CSP )+ 

i$ 
DPINT(R1) 
8$ 
— 
@-1, TIMERCR3) 
138 


PC,CI8 
13% 


OPINTCR1) 
ORVSTACR1) 
@-1, TIMERC(R3S) 
PC .GETREQ 


13% 3;BR I 
@BIT15!BIT14,16(R2) 
12s sF INI 


@-1, TIMERCR3) 
DPRQS(R1) 

PC ,GETREQ 

R2 


13% 3;6R IF 
@BIT1S!61IT2,16(R2) 
PC,.EMPTYQ sCLEAR 


PC, SVRHXX 
CSP)+,R3 

CSP)+,R1 

PC 


ee eee ee eee ee 


sTRYING TO INTIALIZE a ORIVE 7? 
T ONLINE 


O RE 
sDATA TRANSFER UNDERWAY FOR THIS OR 
:6R IF NO 
sREAD CONTROL AND STATUS REGISTER 


s;CHECK ‘RDY’ 

36R IF “RDY“=0 
sINITIALIZING THE ORIVE ? 
36R IF INIT PENDING 

sPORT REQUEST PENDING ? 


F NO 
on s INFORM THE USER DRIVE NOT AVAILABLE 


STOP THE TIMER 

sCLEAR PORT REQUEST INDICATOR 
sGET DPB ADDRESS 

sQUEVE ENTRY FOR ORIVE ? 


s INFORM USER OF PORT REQUEST ERROR 
THE QUEVE FOR THE DRIVE 
sSAVE RHXX/RPO7 REGISTERS 
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SEG 0218 
RPO? DRIVER 2 | 
; sROUTINE TO READ A RHXX/RPO7 REGISTER | 
: 

z ;CALL 

4 ; JSR RO,RD.RP :GO READ A REGISTER 

5 3 INDEX sREG. INDEX FROM BASE 

6 3 ERRAOR sERROR ADDRESS--PROCESS ERROR STARTING 

7 3 sAT THIS ADDRESS 

: ; RETURN sCONTENTS OF REG. IS ON THE STACK 

10 045116 011646 RD.RP: MOV (SP), -C€SP) sSAVE RO 

11 045120 013746 040640 MOV RPADR, -( SP) sADDRESS OF THE 

12 045124 062016 ADD CRO)+, CSP) sREG 

13 045126 017666 000000 000004 MOV acsP),4(SP) sREAD THE CONTENTS OF THE REG 

14 045134 013716 040640 MOV RPADR, (SP) sCHECK IF NON-EXIST ORIVE 

15 045140 062716 000010 ADD #RPCS2,CSP) 3 

16 045144 032776 010000 000000 BIT @6BIT12,a( SP) sNED BIT SET ? 

17 045152 001004 BNE sERROR EXIT 

18 045154 032777 020000 173456 BIT #B81IT13,@RPADR sMCPE SET ? 

19 045162 001406 BEQ 3EXIT 
20 045164 016666 000002 000004 i1%: MOV 2(SP),4(SP) sMOVE THE RO TO TOP OF STACK 
21 045172 022626 CMP (SP)+,CSP)-+ sCLEAR OFF THE STACK 
22 045174 011000 MOV RO sERROR EXIT ADDRESS 
. 045176 000403 BR ;ExIT 
25 045200 062700 000002 2s: ADD #2 R90 sNORMAL EXIT 
26 045204 005726 TST CSP )+ sCLEAR OFF STACK 
27 045206 000200 3$: RTS RO 3EXIT 


Ni 
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RPO” DRIVER 


OBADYVS nhor 


10 


000150 
173410 
173402 
177770 
000007 


;ROUTINE TO WRITE A REGISTER 
;CALL 


8 MOV DATA, -CSP) 
F JSR RO,WRT.RP 
3 INDEX 
F ERRADR 
8 RETURN 
URT.RP; 
MOV CRO)+,-CSP) 
BNE 2s 
000004 CMPB #150,4(SP) 
BLT es 
1$: TSTB @RPADR 
BPL is 
SWAB (SP) 
BIC #tC7,CSP) 
MOVB (SP), 7<¢SP) 
TST (SP )+ 
2s: ADD RPADR, (SP) 
000000 MOV 4(SP),acsP) 
MOV RPADR , (SP) 
ADD @#RPCS2,(SP) 
000000 BIT B8IT12,aCSP) 
BNE 3$ 
- MOV RPADR, CSP) 
ADD @RPER1, CSP) 
000000 BIT #BIT3,aCSP) 
BNE 3$ 
ADD #2,RO0 
BR 4$ 
3$: MOV CRO),RO 
4$: TST CSP )+ 
MOV (SP)+,(SP) 
RTS RO 





sDATA TO BE LOADED ON THE STACK 
sCALL THE ROUTINE TO LOADCWRITE) THE REG. 
s INDEX OF THE REGISTER TO BE LOADED 


sADDRESS TO RETURN TO ON AN ERROR | 
sERROR FREE RETURN 
sFORMING THE REG ADDRESS 

' 


I 
;SEE IF CONTROLLER READY 


sREAD RPCS1 

sMERG THE A17,A18,PSEL BITS 

sCHOP OFF THE REST BITS FROM RPCS1 
sATTACH A17,A18,PSEL TO COMMAND 
sRESTORE STACK LEVEL 

sTHE DEST REG ADDRESS 

sWRITE THE REGISTER 

sCHECK NED,PAR BITS 


; 

sNONE EXIST DRIVE ? 
sBRANCH IF IT IS 
sADDRESS RPER1 


3 

sPAR SET ? 
;BRANCH IF SO 
sNORMAL RETURN 
sEXIT 


sERROR EXIT 

;CLEAR OFF THE STACK 
sMOVE RO TO TOP OF STACK 
sEXIT 


CZRIOBO RPO? PERF 


RPO”? DRIVER 


OBO Satie 


000020 
000010 


045422 


sROUTINE TO SAVE 


F 
7CALL 
F 
3 


SVRAXXK: 


18: 


7%: 


[s.? 
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HE RHXK/SP07 REGISTERS AS PER DPB-14 


C8 ,R2 sADDRESS OF DRIVE PARAMETER BLOCK 
PC, SVRHXx sSAVE THE DRIVES REG’S 

sSAvt RO - RS 
R2 sQUEVE ENTRY FOR THE ORIVE ? 
7$ 382 IF NONE 
RPADR ,R4 
CR2),RPCS2(R4) ;SELECT ORIVE 
14(R2),R3 sGET THE ERROR TABLE POINTER 
7$ sEXIT IF NO ADDRESS 
$$ sCOUNTER € POINTER 
3$, ORPDB sREACHED THE BUFFER REGISTER ? 
es BR IF NOT 
oC *T07,RPCS2(R4 ) s‘OR’ SET ? 
es 36R IF SET 
C(R3)> sSTORE RPDB AS ZEROES 
4s + CONTINUE 
RO,RO.RP sREAD THE SELECTED REGISTER 
0 sREGISTER INDEX 

sERROR RETURN ADDRESS 
(SP)+,CR3)+ sSTORE THE REGISTER CONTENTS 
3%, @RPEC2 s;REACHEO THE ENO ? 
6$ 3BR IF YES 
02,38 s INCREMENT THE REGISTER INDEX 
1% sCONTINUE READING THE REGISTERS 
PC ,CI7 sPROCESS THE UNCORRECTABLE PARITY ERROR 
sCPUOP, -( SP) sCHECK THE CPU (RH) TYPE 
@*C174000.(SP) ;LEAVE THE CPU TYPE BITS 
#30000, ( SP )+ sSEE IF RH70 
7$ sIF NE, 
RHEXT ,R4 ;POINT TO RPBAE 
(R4)+,CR3)> sSTORE THE CONTENTS 
(R4),CR3) sGET RPCS3 

sRESTORE RO - RS 
PC RETURN 


SEU 0220 
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RPO” DRIVER 


i sROUTINE TO SET THE wemenes ENABLE (IE) BIT IN RPCS1 WITHOUT GETTING A 
e s TRANSFER ERROR (TRE) 
s 3s CALL 
a : Ov @ORVNUM,R1 sORIVE NUMBER 
5 3 JSR PC, SET.IE 3SET INTERRUPT ENABLE ROUTINE 
¢ : RE TURN 
6 045506 010446 SET. IE: MOV R4, -(SP) sSAVE R4 
% 045510 013704 040640 MOV RPADR ,R4 sPICKUP ADDRESS OF RPCSi 
10 045514 010164 000010 MOV R1,RPCS2C(R4) sSELECT ORIVE 
11 045520 011446 MOV (R44), -C(SP) sREAD RPCS1 
12 045522 052716 040000 BIS @BIT14,(SP) ;SET THE “TRE” BIT OF THE WORD READ 
13 045526 000316 SWAB (SP) sADJUST FOR DATO 
14 045530 112714 000100 “Ove @BITO6,.CR4) 3SET “IE” 
15 045534 032764 010000 000010 BIT @BIT1I2.FPCS2CR4) 31S “NED"=1? 
16 045542 001002 BNE is sYES--CLEAR “TRE” 
17 045544 005726 TST (SP )« sCLEAN OFF THE STACK 
4 045546 000402 BR es 
20 045550 112664 000001 18: “Ove (SP)+,10R4) sCLEAR “~~ ¥ 
21 045554 012604 2s: MOV (SP )+,R4 sREST 
3 045556 000207 RTs PC sRETURN 10 CALLER 
eh ;QUEVE COUNT 
25 045560 000 QCNT: BYTE O ;ORIVE O 
045561 000 .BYTE O sORIVE 1 
27 045 000 BYTE O sORIVE 2 
28 045563 000 BYTE 0 sORIVE 3 
29 045564 000 BYTE O sORIVE 4 
30 045565 000 .BYTE O sORIVE 5S 
31 045566 000 BYTE O sORIVE 6 
32 045567 000 BYTE O sORIVE 7 


eee a cana aia Ae eS CC CL CC CL LL LL LL LL 
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RPO” DRIVER 


OG iP Le atom 


sQUEVE INPUT POINTERS 
GINPT: 


33333833 
: 


| 
: 


QSTART: 
QSTOP: 


D2 


% 
s 
~@VYViawhtrK Oo 


oe 

3 

- 

a 
~OYVauNrd 


sSTOP ORIVE 6--START DRIVE 7 
sSTOP ORIVE 7 


SEQ 0222 


a EE LT 


E2 
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RPO? DRIVER 
i sORTVE REQUEST QUEUES 
® 045652 QORVO: .BLKW 10 
4 045672 GDRVi: .8LKw 10 
5 045712 Q@ORV2: .8LKWw 10 
6 045732 QoRvS: xu «10 
? 045752 GORV4: .B8LKw 10 
6 045772 QORVS: .8LKW 10 
@ 0460 QORV6: .BLKWw 10 
10 046032 QORV7?: .8LKw 10 
i 046052 QTERP=. 
13 sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
ra 
is sCALL 
16 : JSR PC. CLRQUE 
18 046052 104412 CLRQUE: SAVREG sSAVE RO - RS 
19 046054 012702 045560 MOV @QCNT R2 sZERO THE QUEUE COUNTS 
005022 cua (R2)o sORIVES O € 1 
21 046062 005022 (R2)o sORIVES 2 € 5 
046064 005022 CLR (R2)o sORIVES 4 ES 
23 046066 005022 CLR (R2)- sORTVES 6 & 7 
24 046070 012703 000010 OW 68. RS sMOVE THE STARTING 
25 046074 012701 045630 MOV @QSTART RI sADDRESS OF THE QUEUE INTO 
26 046100 012122 18: MOV (R1)+,(R2)6 sTHE QUEVE INPUT POINTER 
27 046102 005303 DEC R3 
28 046104 001375 BNE is 
29 046106 012703 000010 MOV 06. RS sMOVE THE STARTING ADORESS 
30 046112 012701 045630 MOV @QSTART.AL ;0F THE QUEUE INTO THE 
31 046116 012122 2%: MOV (R1)+,(R2)6 ;QUEUE OUTPUT POINTER 
32 046120 005303 DEC a3 
33 046122 001375 BNE 28 
34 046124 104413 RE SREG sRESTORE RO - RS 
35 046126 000207 RTS PC 


wie Oooo “OLS arr 


105061 
006 501 
016161 
006201 
000207 


000002 
045570 
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sEPPTY THE QUEUE SPECIFIED Gr 1 


‘ 
sCAL 
‘ "Ov 
‘ SSA 
erPTya: CLR 
ASL 
045610 "Ov 
ALR 
RTs 
sROUTINE TO PUT 
’ 
sCALL 
’ "Ov 
‘ "OV 
P) JSR 
P| ree «© 
5 "ee 
045560 ORVQUE: CHPS 
BEQ 
IncS 
ASL 
Ov 
045570 Aa00 
crop 
BNE 
045570 MOV 
is; ASR 
TST 
2s: ats 


—-— = ee See 


CUR VIE, AI sORTVE NUPBER 
PC. ErP Tre 
Scrercet) sCLEAR MAPBER OF ITEMS IN QUEUE 


SSPTCAS )-SRMPTERS D sSET OUTPUT QUEUE POINTER*INPUT POINTER 


A REQUEST IN CUEVE 
COPB ..R2 sADORESS OF PARAPETER BLOCK 
@ORVNUM,R1 sORIVE 
RO ,ORVQUE sGO PUT REQUEST IN 
sRETURN MERE IF QUELE IS FULL 
sRETURN MERE IF REQUEST IS IN QUEUE 
SMR) TS BALE seg 
wees INCREMENT QUEUE COUNT 
R2,GQIWT(R1) »PuT REQUEST IN QUEVE 
02, QINPT(RA1) groans QUEVE POINTER 
GINWPT(R1).GSTOP(R1) , TIME TO RESET Tre 


is 
QSTARTCRL).QINPTCRL) SYES--RESET POINTER 


(RO)« sTAKE RETURN 2 
RO sRETURN TO USER 





I aE eee EE 





tel 


G2 
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' 
ROUTINE 10 GET THE "DPB" ADORESS OF NEXT REQUEST IN GutUE | 
om RE TAH, AIN POINTER ADORESS OF “DPB- REQUESTED OF 
‘ : aoust one. 
$ CMLL 
‘ 
10 046224 005002 cEMmEG: CLR 
11 086226 105761 045560 S78 OCNTCRA) 11S TERE any REQUEST IN QUEUE? 
12 046232 001404 peo $ iNO-- -QRANCH 
13 086234 006301 ~*~ 1 
14 046236 017102 065610 MOY — GGOUTPTCRL).R2 PICKUP “DPB™ POINTER FOR THIS ORIVE 
15 046242 006201 ASR 1 
% 046244 000207 26; ats eC sRE TURN TO USER 
18 sROUTIME TO “POP~ ThE REQUEST FROM QUELE 
20 10M RETURN, R2 WILL CONTAIN POINTER ADORESS OF “DPO~ REMOVED 
22 SCALL 
53 ; MOV CORINA \ORTVE MUPBER 
24 ; JSR «PC, POPE SCALL 10 REMOVE REQUEST 
26 046246 105361 045560 POPOUE: DECB — GCNTCRA) {DECREMENT QUEUE COUNT 
27 046252 006301 ast tC 
28 046254 017102 045610 my SOUT TCRL}.R2sGET Woy Yoon 
29 046260 71 085610 CLA 
30 046264 062761 2 00 ca) gritos a ion 
$1 006272 026161 085610 045652 OP —«QDUTP TCAD ae Tore DE 10 Reset 
32 046300 00100 ONE NO 
33 046302 016161 045630 045610 mov Qsraarcei), @ouTe nD Srancn ayaa. -SaSe? he POINTER 
34 046310 006201 18: ASR 
3S 046312 000207 RTS ;RETURN TO USER 


; HOV @ORVINT LORTVE MUPBER | 
; JSR = s« PC GE TRE 160 GET 1h REQUEST 


H2 


cm 080 RPO? PERF EXER MACRO WO6.00 1-08C-OS 10:52:78 Pace 1270 Sec | 
VICE PARAMETER BLOCKS | 
1 OTT, «OEVICE Panwreter GLocxs 
; sOLOCK LOCATION EQUATE STATEFENTS | 
5 -° wares o ) 
‘ tient 3 iret wet ee eh artict cane (ovta? 
$ 00003 in > sent 2 rena 73 axe, Aa? (Ove? 
° 000004 = — EB be ery (23 Cow 
10 000008 ‘OF  « OFNT.S REGISTER TABLE POINTER 
il 000010 asec orn? SECTOR AOORESS OR 1ST REG AOR 
12 900011 $ ort 10 ; noun 1 REG AOR 
Hr 900014 snes ° eemt1$ eeTeTEm St w ) 
1s 000016 STATUS © OFRT. seTatus uON cant Or Galen? 
1? sORIVE’S HISTORY AMD CURRENT INDICATOR STORAGE EQUATES 
19 000020 ee 1woRo cow 
20 000022 as ° NOL «8 +SEC re (256. OR 258.) 
33 Sooess Sit 8 oat ay: Cee DOTCATGR ) 
23 000027 sontve 2 naanst tPREV Serer tion cove (eye) 
3a 000080 SPATIC © SOL +10 spat 
es 000082 © SOL +12 +PRE VIOUS Tex, SEC, CYL (OOUSLE WORD) 
26 000036 © GOL 16 ’ (bovecé woro 
27 000042 © SOL +22 }MOROS WRITTEN PER wORO ) 
28 000086 $ : sot ; Kd er WORD ) 
30 ooouse curonl. «° oumeLe : oy ni0re (ORBLE WORD) 6 
31 +h K10°6 REPETI mises (on C ) 
32 000066 SRTOTL © OURDL +46 ; wORO ) 
33 ad : ; sa ib xiOeg REPETIT (OOUBLE > 
oe 
35 Sones Stora: pomteae sTOTA Tak tees 
6 000104 SSOFT © Su eee : 
37 000106 SHARD oe GURL 6 
is 000110 6SKI SuRDL + 70 +°SKI* ERROR 
39 000112 SMISPO © GuROLs72 SpROE DETECTED MIS-POSITIONING ERROR COUNT 
40 000114 SPASSC © GURL: 74 1PASS 
41 000116 SFAIR © GUROL>76 OPERATION FATES: COUNT 
42 120 DMC © GURL +100 HOLD FOR REL DU haut 
“4 {INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 
$s wsme essai eet prenarzon cae 
a8 000124 SNSEC © ONCODE 3 iMEXT SECTOR 
a9 000125 OnNTRK 8 €=60©© 66NCODE ‘ 
50 000126 eMC = SNCODE +8 NEXT 
51 000130 tMEXT =e 6 ; SELECTION INDICATOR 
52 000132 SFIRST © SNCODE+10 FIRST OPERATION INDICATOR 


a9 
a 
; 


See ee Lt 


~ 
- 


SSSASSeseuerersseVANVVTesss asses 
$38 : : 33 
CoE «He 


i 


$3 
fii 


Cee ee - - - 
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nn mance 12 sre TN ss as 
" "he? sr INI ® AQORESS 
maxtex o« hd Paeanal ite al MOORE SS 
man ° n10 grax Trast St Tom noone $ 
mIMsee “12 IRINiPAm SECTOR ACORE 
sTXDEX EQUATES FOR CVLLAT, TRELAT, SECLAT ADOMESSES LIMITS @@ 1ST FE CrLINDER 
Stim > emunt-a. Tom, Ao 
° sSectoe yh" 
> Enns ist Fe en DOP 
Fes ° +6 sist FE 
sORTVE SERIAL MAPBER AREA INDEX EQUATE 
sORVSN © CYLLNT+10 sORTVE SERIA MAPBER (6 BYTES) 


= 
= 
ae 
oat 
ar 
ae 
wes 
ie 


2 
i 


eebbbbercencessscs* 


- 


s 


eo 





i 
: 
3 


ICE PARArE BLOCKS 
6 

006814 000 
046316 
046330 066502 
046 $382 
046556 001 
046560 
066572 0667446 
000574 
047020 002 
047022 
067034 067206 
04703 
047262 003 
047264 
047276 047450 
047300 
047526 004 
047526 
047540 047712 
047542 
047766 005 
047770 
050004 
050230 006 
0502352 
050244 050416 
050246 
050472 007 
050474 
050506 
050510 


a 
y HOSE AAD CREE HSE HEE 


“OLKu 
. WORD 
-OLKS 


bitay ts 


@ 
< 
“ 


J2 
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on” 
s © 


sORIVE MPBER 7 





Ke 


-OEC -63 10:52:28 Pace 123 


£8 aSEEEEEEE 


BS aeansozesaa 3 
bi BEREEREERE 2 


mAMeNOr OP Sines 


es 
58 





a ee | 


L2 


-soTh 
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¢*MCE’) ERRORs 





df i poobsilbdgdt assets can 
cee Foaueapiead Stak SeURsehEe: il 
ee He se lak 


————- 


PEPEEEEEPEPEEE PEPE PPE E PEPPER EEE EEE PEPE EEE 


Za, CORED LSD DTONNPT CORNED (EPRE= OW 
TENT ION 
€2° An 
E22 
Cuan e 
oe 
MS Beart 
4 
PORT 
ty 
¢-Ocx’) 
ERROR - 
ERROR - 
READ ERROR - 
READ ERROR - 
"FER: 
At 
WORD 
Ss 
SET 
unt - 
AND WORD 
IC FAILURE - 
at 1 


i 


PORERREEEEEE SES RORORECEE SES EEEEieTeeeerecs 
mn sx st otod we Meo row 
PENNS SAAS aFSA sass Hey SsN sR sAAKASNSNSSASANAN 
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CZ7RJOBO RPO7 PERF EXER MACRO VO4.00 1-DEC-63 10:52:28 PAGE 125 
ERROR MESSAGES 


1 054031 122 120 OM1: -ASCIZ 

0540 104 122 111 ON2: -ASCIZ /ORIVE 
3 054113 104 122 111 OHS: -ASCIZ /OR 
4 054141 104 122 111 On6; -ASCIZ /ORIVE 
S 054200 122 120 101 OM6: -ASCIZ 
6 054206 104 122 111 OM14: .ASCIZ /ORIVE 
7 0543505 122 120 OM1S: .ASCIZ /RPE 
6 054404 122 120 104 DM16: .ASCIZ /RPDT 
9 054464 122 120 


102 OW17: .ASCIZ 
EVEN 





rn i 
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SEQ 0231 
RPOS RPERL APERS RPER2 RPAS/ ; 
REG ADR DATA/ 
REG ADR Gooo BAD/ 
RPCSL RPCS2 RPDS RPERL RPERZ RPECI/<CRLF > 
RP WC RPBA RPDA RPAS RPLA RPM 1 /<CRLF > 
RPSN RPOF RPOC RPCC STATUS/<CRLF » 
RPCS3/<CRLF > 


CZRJOBO RPO7 — EXER 


ERROR MESSAGE 


O@BnOYVSufr 


10 054610 





MACRO V04.00 1-DEC-83 10: 


OT1: 
OTe: 
OTS: 
OT4: 
OT6: 


OT14: 
OT15: 
OT16: 
OT17: 


558 53555 


$RPCS1, $RPCS2, $RPDS, $RPER1, SRPER2, SRPERS, $RPEC1.0O 
$RPEC2, $RPWC, $SRPBA, $RPDA, SRPAS, $RPLA, SRPDB, $RPMR1,O 
$RPDT, $RPSN, $RPOF , $RPOC, $RPCC, $TATUS,O 
S$RPBAE , $RPCS3,0 


—_— 


ZRIOBO RPO? PERF EXER MACRO ¥04.C0 1-0EC-63 10:32:28 PAGE 127 
ASCII MESSAGES 


LIN1IOC: 


LINIOH: . 


LIN11H: . 


ASCII MESSAGES 


/PRSN: COMMAND= re 

/ PREVS COMAND=- 

@e ERROR AT BAD TRACK/SEC TORE 

ZERROR AT C/ 

vt tF 

/PRSNT ADDR= C/ 

4 4/ 

/ PREVS ADOR= C/ 

/START CYL= / 

/ END CYL= / 

4 ACTUAL CYL= / 

4 TRK= / 

7 RPOC= / 

/RPDA= / 

/RPBA= / 

/ RPWC= / 

“START TRKe / 

/START SEC= / 

/BUFFER ADDR= / 

4 WROD CNTs / 

/ WMBR WROS XFRD= / 

ZEXPCTD DATA= / 

4 RECEVD DATA= / 

4 WORD POS= / 

/HEADER FROM ERROR SECTOR= / 

/RPECI= / 

4 RPEC2= / 

/SECTOR IS ECC CORRECTABLE / 

/SECTOR READ CORRECTLY AFTER / 

/CORRECTED ON / 

7 RETRY(S)Z 

/UNCORRECTABLE AFTER / 

/ MIS POS Rene / 

ever, Ss SEEKS= / 
SKI ERRORS= / 

TOTALS: ERRORS= / 

4 WROS WRITNe / 

/ WROS READ= / 


ERROR DURING RETRY/ 

/DATA COMPARISON ERRORS/ 

/ WORD EXPCTD RECEVD/<CRLF> 
/ADOR POS DATA DATA/<CRLF > 

/ WORD RECEVD/<CRLF> 

/ADOR POS DATA/<CRLF> 

/TOTAL COMPARE ERRORS= / 

/THE DATA COMPARED w en oe 

ERROR BURST BEGINS AT WORD / 

/_IN DATA FIELD OF ERROR SECTOR/<CRLF> 
ERROR WAS NOT IN THE DATA READ - /<CRLF> 


es CORRECTION RESULTS/<CRLF > 
WORD BAD CORRECTED /<CRLF> 
7ADDR POS DATA DATA/<CRLF > 
/CONTENTS OF ERROR SECTOR (REPORTED ABOVE )/<CRLF > 


SES 02353 


C4 


CZRIOBO RPOT PERF EXER MACRO V04.00 1-DEC-83 10:52:28 PAGE 127-1 


ASCII MESSAGES 


104 
104 


000 
105 


104 LINI1: .fSCIZ /ADOR HEADER /< CRLF > 
104 LINIIA: .ASCIZ /ADDR DATA/<CRLF >» 
BLNKS4: .MSCII / / 


@ 
z 
© 
> 
e 


, 


BLNKS1: .ASCIZ 
124 LINXS:.ASCIZ /RETRIEVED BY 4 RDHD COMMAND’ 


LT 


SEQ 0234 


4 
a3 


056655 


b bet trp pet chet fp pe HP tp det het try tet thet OBA V Batre R 
g 
N 
pe 
y 
w 


07? 
o7s5 


Bese ESBS SES AAS SIIRSESRSSESS SESS ETS TC TE 


D4 


7 “A EXER MACRO V04.00 1-DEC-635 10:32:28 PAGE 128 


TELETYPE MESSAGES 


-ASCIZ / ONLINE/ 

-ASCIZ / NOT BEING TESTED/ 
-ASCIZ / ALREADY aoe TESTED 
-ASCIZ / NOT 

-ASCIZ / NOT PRESENT/ 

-ASCIZ / NOT AVAILABLE/ 

-ASCIZ / UNSAFE/ 

-ASCIZ / LOAD DEVICE 

-ASCIZ / NON-INTERLEAVED/ 


-ASCIZ <CRLF>/NO DEF AUL 


-ASCII <CRLF><LF> 


SEQ 0235 


eASCIZ B/N\/N/N\/N/N/N/N/N/N/N/\/ -PERFORMANCE REPORT -\/N\/N\/N/N/N/N/NV/NV/N/N/NGD 
>» 


-ASCII <CRLF 


4 X10t6/ 


arts f <OELL 2 eC 97H ATAL OR EXCESSIVE ERRORS/ 


ASCIZ Sr eee ‘L’ OR ‘P* CLOCK REQUIRED ON SYSTEM/<CRLF > 


: 4 ON / 
-ASCIZ / STARTED/ 
“ASCIZ 

“ASCIZ /Y/ 


4.4 
-ASCIZ / ?CAN‘T WRITE IN ‘READ ONLY’ MODE/<CRLF> 
ALIO COMMAND/<CRLF > 


‘ Z / ?INVALIO 

-ASCIZ <CRLF>/ENTER 

-ASCIZ / ADORESS LIMITS; /<CRLF> 
-ASCIZ <CRLF>/ENTER BAD 

eASCIZ /:/ 

-ASCIZ /NONE/ 

-ASCIZ / ?INVALIO ENTRY/<CRLF> 


-ASCIZ a a oe ORIVES ASSIGNED/<CRLF > 


-ASCIZ @DRV S/N: 


SECTR ADRS: /<CRLF> 


-ASCII CNP PLL IPI P PSO 
<CRAL e 


m 
oO 
= 
~ 
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C2RJOBO RPO? PERF EXER MACRO V04.00 1 DEC -63 10:52:28 PAGE 128-1 $80 02% 
TELETYPE MESSAGES 
200 103 110 : .ASCIZ <CRLF>/CHANGE DRIVE PARAMETERS (L) N ? / | 

83 060306 200 104 11? MESFE: .ASCIZ <CRLF>/00 YOU WANT TO WRITE ANYWHERE ON MEDIA (L) W ? / 

64 060367 200 : .ASCIE <CRLF> 

85 060370 007 O11 041 “ASCIT <BELL>/ ¢ CUSTOMER DATA WILL BE OVERWRITTEN t/<CRLE> 

86 060840 8 = 007 O11 055 oMSEIE «BELL DS 202 - ncn encececeesncececeraseneeeeees CRLF > 

87 060510 108 117 116 -ASCIZ /CONTINUE (L) 2? / 

88 060531 200 O40 FEOMLY: (ASCIZ CRLF D7 TESTING FE CYLINDER OMLY 6/<CRLF> 

89 060570 200 O52 O40 READ: .ASCIZ «CRLF>/e PROGRAM IS LOCKED IN “READ OMY" MODE 0/<CRLF> 


F% 


4080 BPO? PERF EXER MACRO VOS.00 1-OEC-68 10:82:28 PAGE 129 $60 0237 
Siva ten ENTR: TABLE 
i .SBTTL PARAPETER ENTRY TABLE 
$ oscees 1 H 001 PARLST: . WORD pam «12800. .MROCNT 
4 060652 061041 077777 001470 .WORD «=: PAR2, $2767. , INTRVL 
S 060660 061331 077777 001 [WORD  PARL2, 32767. .CPPTIM 
$ 060866 O61 077777 0014674 “WORD PARLY. 32767. PASSES 
. oeoroe Seases : SSisos "WORD pamii 1 .Ascane 
9 060710 061414 000007 001502 "WORD pamia.? RATIO 
10 060716 061511 000001 001506 “WORD «« PAR 16. 1. ENDING 
¥ 060724 061447 000001 001506 [WORD = PARIS. 1. RTO 
15 0607382 061577 000001 001510 “WORD «« PAR21.1. 
22 060740 000000 ‘WORD OO STABLE TERMINATOR 
24 060742 040 060 SLASH: .ASCIZ 8/8 
25 060746 200 103 110 ASKPAR: .ASCIZ <CRLF>/CHANGE PARAMETERS (L) NW? / 
Fi Ssiost +4 int iis Pans, aeete sTIME Tween sornre cin AIesTES, OoND O-NO REPORT) / 
t ° 

28 061121 104 124 pans, Aeeis JOATA PATTERN MUPBER (O°RAMDOM, 1-15. °F IXED) / 
2 061176 115 01 130 PARA; -ASCIE 7MAx / 

061207 115 ili 116 PARS: .ASCIZ /MIN / 
31 06 115 101 130 PARG: .ASCIZ AK / 
32 061231 115 111 116 PART:  ASCIZ /MIN TRK / 
33 06 115 101 130 PARS: . JAK SEC / 
SS a 

t ° 

39 061331 126 iil 115 PARI2: AStte /TIME GETWEEN DATA COMP veoreanes bin MINUTES, O-ALWAYS) / 
40 0614146 122 101 PARIG: [ASCIZ /READ TO WRITE OMATE 19°¢o (0 
41 061447 105 116 101 PARIS: .ASCIZ /ENABLE WRITE CHECK (oun teves) s 
42 061511 105 116 104 PARIG: _ASCIZ /EMD OF PASS MODE (O-SEEKS, 1-DATA) / 

061 116 125 115 PARI9: .ASCIZ /MUMBER OF PASSES / 
47 061577 123 105 PAR2Zi: .ASCIZ /SEEK MODE (O*RANDOM, 1*SEQUENTIAL) / 
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SEQ 0244 
stert progres et eddress 204/ 


error 
compere 
setting 
»/Type control-c (°C) te HALT the progren/ 


»/Te change RHKX edresses. 


»/7.END OF HELP/ 


E: 
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CZRUOBO REOT PERF EXER MACRO VO4.00 1-DEC-83 10:32:28 PAGE 135-2 SEQ 0246 
SYSBOL TABLE 

ECCx 016412 ENOCMP 015440 HOUR 001540 LINE6 024056 MAINI 006506 
EcC1 016210 ENOCON 001446 HT = 000011 LIN6A 024070 MAIN2 006644 
Ecce 016406 ENDING 001504 IAE = JF2C00 LINE6C 024076 MASK 001322 
ECGL 001410 ENDPGM= 06337C IAEER 012732 LINE6G 024104 MATCH 015506 
ECGDi 0601416 ENDSEK 001452 IBSAVE 035410 LINE? 024136 MAXCYL*= 000134 
ECH = 0V0100 ENTADR 060124 IOLE 007234 LINE7A 024256 MAXER 0C1456 
eCcI * 004000 ENTCOM 060061 = 000100 LINES 024354 MAXSEC= 000144 
ECMSKO 001402 ENTLMT 060102 ILF = =>: QO0001 LING6 055435 MAXTRK= 000140 
ECMSK1 001404 ENTPR 005556 ILR == 900002 LINMS 054713 MCPE = 020000 
ECSEC 001400 056651 ILv _#* 000004 LINM4 055140 MOPE = 000400 
ECWRD 001406 ERCTR 001362 INCHRD 026106 LINNS 054731 MESFE 060306 
ECWRDI 001414 ERPRC1 0076356 INCMIS 026156 LINOCT 024366 MINCYL® 000136 
EMPTYQ 046130 ERPROC 007622 INCSKI 026132 LINPS 054752 MINSEC= 000146 
EMTVEC= 000030 ERR = 040000 INCSOF 026062 LINPS 955253 MINTRK= 000142 
—EM1 051024 ERROR = 104000 INCTOT 026202 LINR6 055453 MINUTE 001342 
EM10 051337 ERRVEC= 000004 INTRVL 001470 LINSSS 055124 MNTBL 002124 
EM11 051402 Ww INVLD 060036 LINSTS 055110 MOH = 

EM12 051435 EWNERR 013474 IOTVEC= 000020 LINSS 054772 MOL =* 010000 
EM15 051466 FACTOR 017570 * 000100 LINS4 055156 060570 
EM14 051540 FAIRNS 0013526 ISR 043254 LINSS 055270 MRPCS1 062636 
EM15 0515635 FALPAR 007776 ITCNT 022254 LINTS 055041 MRPVEC 062645 
EM2 051077 FALPR1 010012 Ixy == 000100 LINUOG 055465 MSGCON 057573 
EM20 051617 FEONLY 060531 KSR 026534 LINWS 055077 057437 
EM21 051640 FER = KSR1 026542 LINX4 055172 MSGEOP 057451 
EM22 051671 FEL = 000156 KWSVR 026352 LINXS 056615 MSGEOT 057477 
EM23 051744 FILBUF 020162 sc ls LINIOA 056145 057676 
EM24 FILULZ LET = 002000 LIN1OB 056201 MSGPG 057152 
EM25 052071 FILLO 032734 LCE = 001000 LINIOC 056241 MSGPWR 040102 
EM26 052152 FMTER 013012 F = 000012 LINIOH 056345 MSGREP 057167 
EM27 052177 FMTRK = 000163 LIMIT 001364 LINI1 056546 057425 
EMS 051135 FMT16 = 010000 LINAS 055022 LIN11A 056567 MSGX10 057632 
EM30 0522 FRSTER 001552 LINSS 055070 LINIIH 056475 MSHELP 064370 
EM31 052266 FO = 000002 LIN8SS 055235 1 054616 MSHW1 8=6.057135 
EM32 052331 Fl = 000004 LINB6 055345 LIN2P 0546 057145 
EM335 052364 Fe = 000010 LINCAS 5051 LIN2S 054657 MSPASS 057612 
EM34 1 FS . LINC6 055400 LIN3.1 2 060244 
EMSS 052503 Fa * 000040 LINDAS 055061 LIN3.3 0233550 MSTOTL 057622 
EM36 052541 GENDPB 050734 LINDEC 024420 LIN3S.4 023402 MSWAIT 

EM37 052572 GENPAR 020672 LINDS 055215 LIN6.2 024112 MSWRO 057775 
EM4 051173 GENREG 7 LINENS 05 LIN7M 055512 MxF = 001000 
EM4O0 017572 LINEOS 055355 LIN7P 055535 MXWNDW 040650 
EM41 052702 GETID 031070 LINEPS 0553235 LIN7R M.DPID 032250 
EM42 052746 TLMT 030766 LINEL 022274 LIN7S 055555 M.0P40 

EM43 053027 GETPAT 021352 LINE2 022342 LIN7T 055574 M.0P41 052342 
EM44 053123 = 000141 LINE2A 022512 LIN7X 055615 M.0P42 032352 
EM4S 20 GETREM 032102 LINES 25 LINSM 055650 M.D0P44 032404 
EM46 053306 GETREQ 046224 LINES 022776 LINS6 0556735 mM 0. 6 
EM47 053360 = 000001 LINESA 02 LINSE 056070 N 057765 
EMS 051230 GOORIV LINE3SB 0235012 LINSG 056117 NED = 010000 
EMSO 053435 GTSWR = 104406 LINESC 023024 LINSH 055722 NEOCLK 057714 
EMS1 053473 * 000200 LINESD 0235034 LINSI 1 ° 

EMS? 053536 HCEER 013070 LINESE 023102 LKPAR 005246 NEWASN 030110 
EM6 051264 ° LINESF 023170 LODEV 57041 NEWUNT 001 
EM60 053602 = 000400 LINES 023446 LOODPAR 021742 NINLEV 057056 
—M70 053625 HCRCER 011630 LINES 023536 LSTAD 001330 LT 057077 
—M71 053704 HELPTX 064500 LINESA 023746 MAIN 006340 NOORVS 


060204 
EM72 053762 HERTZ 001312 LINESB 024014 MAINDA 006364 NOMTCH 013616 
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CZRJOBO RPOT PERF EXER MACRO V04.00 1-0EC 63 10:32:28 PAGE 155-5 SEQ 0247 
SYMBOL TABLE 
NONE 060156 PIRQ «* 177772 RECALT 016710 SAVERS 001360 SWwO 8 * 000001 
woop = 000101 PIRQVE* 000240 RECALO 017000 SAVPOS 001554 swoo = 000001 
NOTAVL 057012 POPQUE REDAPK 030120 SAVREG* 104412 SWOl * 000002 
NOTPRS 056775 POSER 0124354 RELBUF 017726 sc 043630 Swo2 * 000004 
NOTRP 056760 PROCES 007472 RELSE * 000115 030006 SwoS = 000010 | 
NOTSAF 057031 PRIBAD 016436 REPLZ 032652 SCOPE = 000004 Swos = 000020 
NSA _—= 100000 PRTIM 010150 RESREG= 104415 SCo4 = 000400 = 000040 
OFFDIR= 000200 PRO = 000000 RESVEC= 000010 Sci = 000100 SWO6 = 000100 
OFFON = 000001 PRi = 000040 RETRY 001524 $C10_ = 001000 SWwO7 = 
OFLIN 010110 PR2 * 000100 001432 $C100 = 010000 SWOS = 000400 
ONES 003262 PRS = 000140 RHEXT 040646 sCii 044102 = 001000 
ONESEC 001546 PR&4 = 000200 = 000004 scCi2 Swi = 900002 | 
ONESUM 025122 PRS = 000240 RPADR 040640 scis 044264 Sw10 = 002000 
OPI « PR6 = 0003500 RPAS = 000016 sc2 = 000200 SW1il = 004000 
OPIER 012506 PR7 = 000 RPBA = 000004 sc20 = SWi2 = 010000 
OPTER1 012556 PS * 177776 RPBAE = 000050 scs 043676 swi3 = 
T 041622 PSEL «= RPCC = 0000356 sc4 043702 SW14 = 040000 
OPTBL 002104 PSW = 177776 RPCS1 = 000000 sc40 = SW1S = 100000 
OR . PUNSAF 007720 RPCS2 = 000010 scs 043714 SWw2 = 000004 
ORDERG 001520 PURFLG 040100 RPCSS = 000052 Sc6 044024 SWS = 000010 
OVRWRT 060567 PURUP 040124 RPDA = 000006 scs 044052 SW4 = =: 000020 
PACK 030162 PURVEC> RPDB «= 000022 ARCH= 000131 SWS == 000040 
PAR « 10 QCNT 045560 RPDC = 000034 SECLMT= 0900152 SW6 38=— = 000100 
PARENT 031170 QORVO 045652 RPDS = 000012 SECOND 001544 Sw? == 900200 
PARER 012640 QORVi 045672 RPOT = 000026 SEEK = 000105 Swe 8 = 000400 
PARLST 060644 QORV2 045712 RPEC1 = 000044 SEEKFG Sw9 = 001000 
PARI 061002 QORVS 045752 RPEC2 = 000046 SELORV= 000145 T 054726 | 
PARI1 061264 QORV4 5 RPER1 = 000014 AR 0203350 TAB 056657 
PARI2 061531 QORVS 045772 RPER2 = 000040 SETFMT= 000145 TABLE 061644 | 
PARI4 061414 QORV6 046012 RPERS = 000042 SETVEC TABLEO 061664 
PARIS 061447 QORV7 046032 RPINIT 040652 SET.IE 045506 TABLE1 061752 
PARIG6 061511 QINPT 045570 As SIZE70 004742 TABLE2 
PARI9 061555 QOUTPT 045610 RPMR1 = 000024 SIZMEM 005112 TABLES 
PAR2 061041 QSTART 0456350 RPOF = 000052 ,.6h6@ TABLES 062114 
PAR21 061577 Q@STOP 0456352 RPSN = 0000350 SKIER 015246 TABLES 062162 
PARS 061121 QTERP = 046052 RPSTUO 040424 SLASH 060742 TABLE6 2 
PAR4 061176 QUES 056647 RPSTUL 040434 SPOTCK 016420 TABLE? 062276 
PARS 7 RANCYL 021062 RPSTU2 040444 SRCHWT 040576 TAB.XY= 001114 
PAR6 RANDOM 001510 RPSTUS 040454 STA 006074 AP os 
PART 061231 RANDWC 001500 RPSTUS STACK = 001100 TBITVE= 000014 
PARS 061242 RANPAT 0213522 RPSTUS 040474 START 003522 TCcF 8 6® 
PAR 1253 RANSEC 021152 RPSTU6 START1 0035352 TO 043404 
PASSES 001474 RANSIZ 12 RPSTU7 040514 START2 003550 THEAD 020776 
AT RANTRK 021116 RPTMR STATIN 0013514 TIMER 
PATCH 062764 RANXIT 021342 RPVEC 040642 STATIS 017270 TKVEC = 000060 
PATTER 001476 RATIO 001502 * 000002 STATPR TPE *#* 000002 
PERIOD 057771 * 104410 RPO7 041364 STKLMT* 177774 TPVEC = 000064 
PERM RODAT = 000171 RTC * 000117 STNDAT 002314 TRAPVE= 000034 
PFECH 035570 ROHD = 000173 RTURN sto 044472 TRE = 
PFECH1 035600 ROLIN = 104411 RW1 = SUPRS 032442 TRFER 013146 
PFECH2 035662 RDONLY 001424 RWU2 = 004000 SUPRSL 032426 TRKLMT= 0001 
PFECHS 035714 RDY = RWIS = 010000 SUPR1 032454 TRMREP 057274 
PFECH4 035724 RO.RP 045116 R6 o SUPR2 032516 TRNSWT 040574 
PFTSTN 035730 READOR R7 =#000007 SVRHXX 045342 TRTVEC= 000014 
PGE = 100000 READHD 017026 Ss 054747 001154 TSTANY 001422 
PGM = 001000 READIN= 000121 SAVEFG 040602 SWREG 000176 TsT1 003540 
PIP = 020000 RECAL = 000107 SAVER1 001556 SWTIM 010052 TYORV 033044 


eee een LL LL LL LL 
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CZRJOBO RPO? PERF EXER MACRO V04.00 1-DEC-63 10:52:28 PAGE 1535-4 SEQ 0248 
SYMBOL TABLE 
TYPDRY 035050 SCHARC 0 $sHLOWC* 000120 SPSEL = 000003 SSUPRL 032526 
TYPDS = 104405 sCKSWR 054010 SICNT 001120 $PWRAD SSUPRS 
TYPE + 104401 SCMTAG 001114 SILLUP 040072 SPWRON 0357720 $SUPR1 032554 
TYPOC = 104402 scms SINTAG 001151 SPWRMG $SUPR2 032616 
TYPON = 104404 scma oe SsITEMB 001150 sPURUP 037772 $SVPC = 000210 
TYPOS © 104405 SCNTLC 034715 uF 001204 SQVUES 001202 $SWR = 122000 
TYPSUM 025150 SCNTLG 034727 SLFLG 037203 SRAND 037206 ‘ 001230 
UCPAR 007760 SCNTLU 034722 $LKCSB 001500 SRDCHR 0343552 STATUS* 000016 
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UNTOFF sCvt_ = 0000 SLPADR 001122 SREPLZ 032742 $TKCNT 033472 
UNTON 056700 sOB0Iv 032174 SLPERR 001124 SRESRE 037346 $TKINT 033510 
VPE = 020000 s0BLK 0367350 SLPVEC 001302 SRETRY 017120 $TKQEN* 033507 
VSi * 000001 $0820 037404 SLSTAD 062474 $RPADR 001272 $TKQIN 033474 
vS2 * 900002 $ 037600 $ 1 001240 SRPAS « $TKQOU 033476 
use os SDECVL 037564 SMADR2 001244 SRPBA = 000172 $TKQSR 033500 
vv * 000100 SDEVCT 001216 SMADRS 001250 SRPBAE= 000236 $TKS 001160 
WAIT 001632 SOE VM SMADR4 001254 sRPCC = 000224 $TKSRV 033560 
WATPAK 030144 sOIv 032126 $MAIL 1206 SRPCSi= 000166 sTHPO) 8=—:- 0011174 
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WCHKX «= sOTsL «= 036720 SMAMS4 001252 $RPDB = 000210 $TPB 001166 
WCKD = 000151 SENDAD 032034 SMBADR 1102 $RPDC = 000222 STPFLG 0011735 
011242 SENDCT 032020 sFLG 037202 $RPDS = $TPS 001164 
WCKHD = 000153 sENV 001226 sMISPO* 000112 $RPOT = 000214 STRAP 040336 
wC.1K = O84 3316 sENVM 8 001227 sMNEW 86034745 $RPECi= 0002352 STRAP2 040360 
ME -s sE0P 031500 SMSGAD 001222 $RPEC2= 000234 $TRK © QOO00011 
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Y 057767 SFATR = 000116 SNPATC* 0001235 sRPO7TP 057162 $TYPON 036326 
ZEROS 002 SFATAL 001210 $NSEC = 000124 SRTNAD 032046 STYPOS 036266 
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SATYC 036764 SFILLS 001171 sNWTSTe $SAVR6 76 $ 001232 
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sBUF_ Os $H#D = 000000 $PATTC*= 000030 $SSEC = 000022 $$GET4= 000000 
sCOWl 001266 SHIBTS 001100 $PREVA= 000032 $STOTL= 000076 SOFILL 036511 


sCOW2 001270 SHINUM 037304 $PREVO= 000027 $STUP = 177777 -$X = 001100 
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TABLE (CREF VO4.00 ) 


CZRJOBO RPO7 PERF 
CROSS REFERENCE 
CLKFLG 9-00 56-Se 
CLKOFF 58-448 62-27 
CLR $-132@ 62-15 
CLROPB 17-31 63-66 
CLRQVE 102-17 106-226 
CNCNT 9-00 36-116 
CMCYL 9-0¢@ 36-16¢ 
CMDAT 36-32 36-47 
CMHED 36-360 
CMPAR 22-31 36-3¢ 
CMPARD 26-66 36-S¢@ 
CMPLMT 9-0¢ 34-43 
CMPRES 16-45 20-37 
CMPRT 36-51 37-18 
CMPRX 36-46 37-49 
CMPTIM 9-0¢ 12-94 
CMSEC 9-0¢@ 36-184 
CMSTR 36-219 
CMSTR2 36-41 36-45 
CMTRK 9-0¢ 37-61 
COLON 61-17 61-22 
COMMA 19-18 59-79 
COMTBL 9-0@ 56- 
CPSAVE 86-1 86-1 
CR S-104@ 86-1 
CRLF 5-104@ 9-0 
88-1 96-5 
127-SS 127-56 
128-41 128-48 
128-84 128-85 
134-14 134-15 
134-28 134-29 
134-42 134-43 
135-4 135-5 
CTRAP 85-1 85-1 
CYLLMT 37-68 67-13 
CYLNDR 30-10 30-11¢ 
DASH 59-71 128-6¢ 
DASH13 59-50 64-43 
DASHS 16-41 59-30 
DATAO 10-0 10-0¢@ 
DATAL 10-0 10-0¢@ 
DATA1O 10-0 10-0¢@ 
DATA11 10-0 10-00 
DATAI2 10-0 10-0¢@ 
DATAI3 10-0 10-0¢@ 
DATA14 10-0 10-00 
DATAIS 10-0 10-0@ 
DATA2 10-0 10-0¢@ 
DATAS 10-0 10-0¢@ 
DATA4 10-0 10-0@ 
DATAS 10-0 10-0@ 
DATAG 10-0 10-0@ 
DATA? 10-0 10-00 
DATAB 10-0 10-0¢@ 
DATAQ 10-0 10-0¢ 


58-9e 


' 
[mJ 
o 


96-37 


S6-21¢ 56-44 


86-1 86-1 
12-31 12-31 
96-38 96- 


67-368 67-73 
30-15¢  30-46¢ 


73-1 128-32¢ 
126-31¢ 
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61-4 


36-274 36-30 37-47 
37-66 37-72 


56-70 


37-934 
22-22 22-24 22-24 


68-10e  68-17« 121-120 
57-224 57-302 57-302 


37-50« 


22-26 


121-13 
123-8 


37-SS 


22-28 


59-109 
127-48 


121-14 
133-790 


37-83 


22-30« 


59-125 
127-49 


61-394 


59-148 
1 


129-5 


59-149 


68-1 
127-53 
128-37 
128-83 
134-13 
134-27 
134-41 
135-3 


BS 
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TABLE (CREF VO4.00 ) 


CROSS PEFERENCE 
DATATK 62-69 


S-262¢ 
DH1 11-5 
DH14 57-66 
DH1S 57-75 


5-166¢@ 

99-180 
DRIVE 9-06 
DRIVEO 9-0 
DRIVEL 9-0 

I 9-0 

DRIVES 9-0 
DRIVES 9-0 
DRIVES 9-0 
ORIVE6 9-0 
ORIVE7 9-0 
DROP 23-10 
DROPD 62-55 
DROPNG 71-31 
ORO 5-220¢ 


DRVER 24-103 
DRVINT 102-39 


65-13> 


25-30 
30-85 


8-0 12-25 
16-14 64-15¢ 


125-1¢ 
125-6¢ 
125-7¢ 
125-8¢ 
125-9¢ 
11-33 125-2¢ 
125-3¢ 
125-4¢ 


24-310 


126-416 


128-206 
104-32 106-163¢ 


28-310 
103-15@ 104-21 


71-29¢ 


NYUOrU ® 


Yrs Ore Ora re 


106-183 


109-101 


73-16 


57-424 


109-114 


106-193 


109-117 


25-20 25-23 
31-4 31-22 
34-22 34-23 

-74 38-80 
41-31 41-32 


57-433 57-447 


109-116 111-20 
106-195 106-215¢ 


130-20 130-20 
130-20 130-20 
130-20 130-20 
130-20 130-20 
130-20 130-20 
130-20 130-20 
130-20 130-20 
130-20 130-20 


106-2144 108-Se 


111-34 


111-56 
109-28 


130-20 
130-20 
130-20 
130-20 
130-20 
130-20 
130-20 
130-20 


109-40 


109-64 


111-79¢ 
111-60 


109-736 


111-71 


111-31¢ 


111-89« 


111-37 


111-44 


SEQ 0259 


i 
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CS 
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CROSS REFERENCE TABLE (CREF VO04.00 ) 
DRVMSG 19-16 23-26 59-68 65-73 71.9 71-38 128 -8¢ 


ORVNO 9-08 22-3¢ 23-27 57-67 86-1¢ 


DRVPAR 9-00 63-Se 63-21¢ 63-70 67-34 
DRVPRM 17-36 63-79 67-80 
DRVQE 104-29 108-40, 107-20 118-220 
v i-11 128-6 
DRVSTA 16-21 17-28 63-63 98-37@ 102-296 102-308 102-31¢ 102-326 102-43¢ 103-21 103-30* 103-73* 103-79 104-19 
104-24 104-49 105-19 105-23 106-231 109-32 109-38 109-44 109-119 111-80« 
DRVTYP 16-25 16-49 59-74 63-88 68-14  986-52@ 103-226 103-416 103-46¢ 103-5ie 104-55 106-2326 
v -165@ 


6 
s 
OSWR ope 8-0 12-25 


DT2 11-13 11-34 += 126-20 
DTS 11-20 126-36 
DT4 11-27 126-40 
DT6 11-41 126-Se 
DIEER 28-98" 30-8 
- -816 
DTUM 62-10 100-33@ 102-24 105-35  106-S0*« 106-187 106-198 106-216 106-2184 106-224¢ 107-6 108-6 111-25 111-40 
111-SO* 111-62 
DVA 5-157 
DVC 5 -269¢ 
ECB 9-00 
ECBADl 9-0@  40-68¢ 41-37 
ECBIT 9-0@ 40-22 40-23¢ 40-24  40-25¢  40-45¢ 
ECC 26-57 40-30 
ECCl 40-66 41-20 
ECC2 40-41 40-64 41-400 
ECCX 41-20 41-38 41-410 
ECGD 9-00 
ECGD1 9-0@ 
ECH 5-183@ 25-5 27-29 
ECI 5-2420 
ECMSKO 9-00 40-430 40-47¢ 40-52 40-54 40-63 
ECSEC, 9-08 a0-8e, 40c1S* 40-180 40-208 40-38 
- -5¢ - & - o - a - 
ECWRD 9-00 40-240 40-260 40-27¢ 40-28¢ 40-29¢ 40-31 40-38 40-39 40-51 40-53  40-S4* 40-5S* 40-59 
41-6 41-17 
ECWRDI 9-00  40-59¢ 40-60e 40-61 40-65¢ 40-68 40-70 40-7ie 40-72e 41-19 41-25 41-37 
EM1 11-4 124-30 
EM10 «23-16 Ss: 124-96 
Emil 23-23 124-100 


EMi2 23-4 124-11¢ 


a 
| 


een 
- cece neem nem a, at tc A CC CL LL LL LLL LL EL 
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CROSS REFERENCE TABLE (CREF VO4.00 ) 


4) 8 23-37 124-12¢e 
E14 24-4 124-13¢ 


En42 

emas 34-16 34-21 124-340 
emas 25-235 27-44 124-360 
Em47 25-20 27-42 124-360 
EMS 


25-10 27-31 124-410 


EMPTYQ 106-161 106-230 1086-40 111-94 116-70 
12-256 


ENDCON 9-00 17-4¢ 17-Se 17-86 17-9« 17-13¢ 17-14e 21-21 21-24 


ERCTR 9-08 36-96 36-SO0* 37-14 37-29¢ 36-88 38-91 
ERPRC1 22-44 22-S0@ 26-28 44-69 
ERPROC 22-8 22-12 22-14 22-360 


ES 
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TABLE (CREF VO4.00 ) 


CROSS REFERENCE 


ERRVEC 55-1040 
86-1¢ 
EWN 5-162¢ 
EWNERR 24-45 
FO 5-152¢ 
Fi 5-153¢0 
F2 5-154¢0 
F3 5-155¢ 
F4 5-156¢ 
FACTOR 45-90 
FAIRNS 9-00 
FALPAR 22-56 
FALPRI 23-17 
FEi 54-43 
FEOMY 15-59 
FER 5-161¢ 
FILOUF 20-29 
FILLO 8 79-1le 
FILLZ 61-15 
FMT16 5-243 
29-10 
6-220 
FRSTER 9-00 
43-30¢ 
GENPAR 20-57 
GENREG 29-6 
GETBUF 20-23 
GETID 17-32 
GETLMT 67-10 
GETPAT S0-68 
GETREG 6-15¢@ 
GETREM 51-15 
GETREQ a Hw 
59-155 
97-1 
GO 5-151¢ 
GODRIV 20-30 
GTSMR Ss 12-31 
5-164¢@ 
30-16 
HCI 5-241 
5-1865¢ 
24-55 
TX 12-134 
HERTZ 9-00 
9-00 
HT 5-104¢@ 
IAE 5-187¢@ 
IAEER 24-79 
IBSAVE 86-1 
IDLE 18-7 
Ie 5-110¢ 
ILF 5-177¢@ 
ILR 5-1780 
Iiv 5-163¢ 


12-25 
86-1¢ 


33-410 


12-25 
131-1 


29-5 
20-10 


20-1ie 
66-1 


86-1 
20-46 


17-33 


12-25¢ 
131-2 


12-276 
131-1¢ 


45-20 


67-70 


80-156 


34-426 
44-lle 


61-49 
61-446 


66-1 


12-26 
131-le 


61-45 


66-10 


13-6 
131-1le 


45-41 


37-33 
44-136 


61-476 


86-1¢ 


13-7e 
131-le 


45-590 


68 -16¢ 


111-27 


97-1 


86-1¢ 


13-346 


106-53 


111-42 
59-93 
97-1 
97-1 


86-1¢ 


121-15¢ 


111-82 


97-1 


58-7 


111-90 
59-125 
97-1 
97-1 


58-19¢ 


119-10¢ 
59-148 
97-1 
97-2 


58-37 


123-30 


59-152 
97-1 


» 


JOBO RPO7 PERF EXER MACRO V0O4.00 1-DEC-63 10:52:28 PAGE S-14 SEQ 0263 
S REFERENCE TABLE (CREF VO04.00 ) 

INCHRD 26-46 27-635 60-178 

INCMIS 30-50 60-190 

INCSKI 532-45 60-16¢ 

INC 26-6 26 -64 27-80 26-16 29-23 30-29 30-65 60-160 

INCTOT 235-6 23-26 23-41 24-6 24-19 25-25 26 -26 26 -49 26 -69 27-11 27-84 26-17 26-35 29-24 
30-30 50-S1 30-67 31-8 31-25 31-34 31-49 32-12 32-23 32-42 33-8 33-26 33-S4 35-20 
35-36 38-94 60-200 

INTRVL 869-08 12-93¢ 20-14e 61-36¢ 61-535 61-55 61-55 61-S6e 6-17 %-26 129-4 
62-94 1286-535¢ 

IOTvEC 5-1040 

IR 5-1535¢ 

TSR 102-34 107-30 

ITCNT S6-23¢ S6- 36-25¢ %56-57¢ 

Ixu 5-268¢ 

KIPARO 131-1 

«SR 16-8 62-10@ 62-11 

KSR1 62-120 

KWSVR S6-11 58-23 61-31¢ 

Bc S-2720 

Let 5-1680 

Lce S-271¢ 

uF 5-1040 -6 66-1 66-1 96-5 128-26 1286-60 

LIMIT 9-00 34-43¢ 36-19 36-208 538-48 38 -S0¢ 

LINIOA 40-30 127-540 

LINLOB 40-37 127-55¢ 

LINIOC 41-40 127-56¢ 

LINIOH 41-2 127 -Se¢e 

LINIi 42-41 127-620 

LINIIA 42-52 127-636 

LINIIM 42-38 127-610 

LIN2C 57-32 127 

LIN2ZP 57-38 127-Sé@ 

LIN2S 57-64 127-60 

LINS.1 57-120 57-126 57-1910 

LINS.5 57-131 57-136 57-2135¢ 

LINS.4 57-1 57-2230 

LIN6.2 57-331 57-337 57-343 57-3560 

LIN7M 57-416 127-360 

LIN7P 57-412 127-400 


LIN6M 26-27 44-68 57-433 127-46¢@ 


G 
CZP.JOBO RPO? PERF EXER MACRO VO4.00 1-DEC-63 10:32:28 PAGE S-15 
CROSS REFERENCE TABLE (CREF V04.00 
LINDAS 57-179 7-178 
LINDEC 56-92 7-160 57-165 a -ES 57-192 57-194 5/7-1% 
537-266 7-249 57-289 57- 57-379 57-420 57-425 
LINEL 8 23-5 23-% 24-3 fy 2-9 25-19 25-22 
30-44 30-60 30-83 5i- 31-21 31-31 31-40 
3 35-33 38-32 57-60 
LIM=2 23- 23-36 24-5 24-18 25-26 26-2 27-10 
31-5 31-23 31-35 31-42 32-5 32-20 32-40 
57-280 57-434 
LINE2ZA 57-37 7-42 57-610 
LINE2B 57-62 57-650 
LINES 23-6 23-39 24-6 24-18 26-3 27-10 27-Si 
32-21 33-25 33-53 35-16 57-1190 
LINESA 55-6 34-16 36-35 57-1250 
LINESS 532-41 57-1310 
LINESC 50-47 S7-1 
LIMESD 55-36 57-100 57-1440 
LINESE 31-6 S7-1 
LINESF 31-24 57-1770 
LINES "5 23-40 24-7 2-8 26-4 27-10 27-Si 
-22 33-7 34-19 -19 35-37 38-36 57-101 
LIMES 27-10 27-Si 28-15 29-21 30-27 31-47 32-10 
LINESA 2-8 ae rf 30-26 30-49 31-48 52-11 57- 
LINESS 26- 7-3100 
LINEG 26-15 26 -S4 57-3230 
LINEGA 26-65 57-3300 
LINE6GC 25-29 27-16 -22 29-29 30-35 30-72 
LINEGD 25-52 -60 27-19 28-25 29-32 30-38 30-75 
LINE? 23-9 23-42 -9 -20 25-33 26-50 26-71 
30-39 -73 30-76 31-14 31-26 31-35 31-50 
44-64 57-3770 
LINETA 30-52 44 57-4120 
LINES 26-47 27-76 -63 57-4330 
LINENS 57-216 127-136 
LINEOS 57-314 7-300 
LINEPS 57-310 127-290 
LING6 -3% 7-330 
LINMS§ 57-119 127-7¢@ 
LIN -239 127-220 
LINNS 7-225 127-90 
LINOCT 34-27 34-36 38-58 -61 38-64 41-6 41-17 
42-55 42-61 57-66 $7-108 57-148 57-151 57-161 
57-316 57-4430 
LINWPS)§ 57-197 127-116 
LINPS 7-268 127-27¢ 
LINRG 57-361 127-340 
LINSS 57-156 57-213 127-12¢ 
LINS4 57-242 7-230 
LINSS 57-297 7-260 
LINSSS 57-167 127-210 
LINSTS 57-162 7-200 
LINTS 57-227 127-15¢ 
LINUOG 57-342 7-350 
LINWS 57-149 127-190 
LINX4 57-245 7-240 
LINXS 57-503 127-66¢ 


41-17 
57-165 


29-16 


57-207 
27-23 
32-38 
26-33 
33 -S2 


29-17 


41-37 
57-267 


41-37 
57-270 


42-43 
57-302 


SEQ 0264 
$7-226 %7-230 
29-14 30-20 
33-41 34-15 
30-46 30-62 
35-35 38-34 
31-43 32-6 
31-44 32-7 
57 - 3360 
57-3420 
29-33 30-36 
35-39 38-95 
42-46 42-49 
$7-302 57-312 
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CZRJOBO RPO7 PERF E 
CROSS REFERENCE T 


SWTIM 22-56 23- 
T 57 


1-DEC-83 10:32:26 PAGE S-22 SEQ 0271 


v04.00 
vo4.00 ) 
-80 


5-222¢ 
TBITVE 5-104¢ 
5-270 
TO 107-8 408-30 


TIMER 100-20@ 103-18+« 103-83« 105-484 106-161 106-2094 108-8 109-58 109-85« 110-12 110-14e 111-45# 111-73 111-81¢ 
os 5-104@ 85-14 85-1¢ 


TRAPVE 5-104@ 12-25¢ 12-254 


TRKLMT 37-62 54-47 55-23 55-50 57-496 67-14 67-39 67-40 68-11+ 68-18 121-14¢ 
TRMREP 21-56 126-280 
TRNSWT 99-31@ 106-13¢ 106-184 106-186 106-197 106-219 106-225¢ 108-10 106-11* 111-24 111-39 111-51 


TSTANY 9-0@ 15-7 15-57* 67-17 67-66 

TYORV 59-81 61-11¢ 

TYPORV 19-21 63-77 81-120 

TYPDS 59-150 59-153 59-156 59-159 59-166 97-1¢ 


TYPOS 12-48 12-59 16-19 19-17 23- 59-69 63-74 71-10 71-35 97-10 


Br 


CZRJOBO RPO? PERF EXER MACRO V04.09 1-DEC-8% 10:32:28 PACT S-23 
CROSS REFERENCE TABLE (CREF V04.00 ) 


UNSsPe 4-85 
UNTASN 63-25 
UNTNOT 64-21 
UNTOFF 16-34 
UNTON 16-46 
UPE 5-140 
US1 5-127 
US2 5-128 
US4 S-129@ 
vv 5-164¢ 
WAIT 9-00 
WATPAK 62-90 
WC.HK 8107-160 
WCE 5-141¢ 
wer $-1820 
WCFER 24-75 
WCHKK 98-20 
wCKD 6-19 
WCKER 24-47 
WCKHD 6-200 
WLE 5-1886¢ 
WEER 24-83 
WOR 5-254¢ 
WROCNT 9-00 
WRDPOS 9-08 
38 -68 
35-1698 
WRT.RP 103-55 
106-150 
WRT 9-00@ 
WRIDAT 6-210 
WRYUNS 5-253¢ 
xXDP 9-00 
63-42 
Y 128-509 
ZEROS 10-0 
ZROIND 9-0¢ 


24-39 
63-39 
64-37 
63-95 
128-10¢ 


33-22¢ 
128-12¢ 
126-11¢0 
128-90 


20-19 


56-28 


20-24 


56-37 


14-22 
34-36 
40-334 


106-31 
109-47 


56-31 
12-40 


37-35¢ 


20-35 


107-28 


15-110 
36-406 
41-7 


106-35 
113-100 


107-18 
12-426 


37-40 


20-78 


15-1126 
36-446 
41-26 


106 -47 


12-47 


50-44 
37-30 


106 -56 


12-58 


53-3 
37-11l¢ 


106-64 


16-40 


129-3 
37-38 


106-75 


16-42 


37-766 


106 -80 


17-24 


37-80¢ 


106-92 


17-26 


38-16 


106-100 106-112 106-127 


63-26 


38-194 


63-28 


SEG 0272 


38-248 


63-40 


CZRJOBO RPO7 PERF EXER MACRO V04.00 1-DEC-63 10:32:28 PAGE M-1 
CROSS REFERENCE TABLE (CREF VO4.00 ) 


$ $CMRE 
$sCMTM 
$s—ESca 
$SNEWT 
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$$SkIP 
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SEQ 0273 


i 

| 

97-1 97-1 97-1 97-1 97-1¢ 97-2 

t 

| 

| 

5-99 5-101 5-102 
66-46 67-81 68-20 69-29 79-34 80-36 90-1 
66-9 68-7 69-10 $0-1 91-1 91-1 91-1 

97-1 97-1 97-1 97-1 97-10 97-2 
| 


Do 
CZRJOBO RPO? PERF EXER MACRO V04.00 1-DEC-83 10:32:28 PAGE M-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


STARS 5-104e 7-8 7-11 7-11 7-11 8-0 8.0 8-0 12-19 
6S-1 85-1 65-1 86-: 87-1 86-1 89-1 90-1 91-1 
9-1 97-1 131-1 

SWRSU 5-104@ 12-25 12-25¢ 

TRNTRP 97-10 97-3 

TYPBIN 5-1040@ 

TYPDEC 5-104@ 59-150 59-153 59-156 59-159 

TYPNAM §=6©5-104@ 12-31 

TYPNUM =: S$ -104@ 

TYPOCS 5-104@ 16-19 19-17 23-27 59-69 63-74 71-10 71-35 

TYPOCT 5-104@ 62-25 85-1 67-1 7-1 

TYPTKT me rey 12-6 12-45 12-56 12-62 59-62 59-93 59-109 59-125 

UPCODE 95-2¢ 96-1 

XXEP 72-11@ 73-1 


73-1 
92-1 


59-148 


77-4 
93-1 


59-149 


59-152 


59-155 


